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TIC. esta 
ança erie inedi- 
ta de programas alucinantes e 
100% NACIONAIS para o seu MSX! 
O SISTEMA OPERACIONAL HELLO 
chegou para suprir todas as ne 
cessidades dos usuarios de dri 
ves com o MSX. O HELLO possui 
recursos ineditos como formata 
ção personalizada por sistema 
de LABELS, recuperação de dis- 
cos com ERROS DE E/S, testes de 
alinhamento radial de drives e 
testes de HARDWARE, alem de to 
das as funções de sistema com 
maicr rapidez e confiabilidade 
Apenas em disco, com manual 
detalhado por Czg 8.200,00. 
NSxX TURBO SPEED 
Este utilitario, de extrema 
simplicidade de operação, pode 
acelerar em ate 60 vezes o seu 
rraograma em BASIC cu Linguagem 
de Maquina. Pode ser fornecido 
em cartucho por Czg 12.000,06; 
k versã de disco ou fita 
penas Zz$% 5.500,00. 





JOE HOUALSKHI Noz 
Para quem não sabe 
JOE KOWALSKI e" a 
protagonista dos 
A mais rantasticos 
jogos ia criados 
PATA Os microcompu 
tadores MSX. 
Para os que ja” possuem os ja- 
gos da primeira serie (HAUNTED 
HOUSE, PINBALI. BLASTER, BLOW-UP 
e GUTT BLASTER) , a NEMESIS es- 
ta lançando a segunda serie de 
jogos: VYORTEX RAIDER, um super 
duelo espacial; HABILIT, um jo 
£o de muita estrategia e muitã 
acao e MAZE MASTER, uma averntu 
ra fantastica no labirinto. Pã 
ra quem ainda nao possue, estã 
e' a grande oportunidade: 
Serie JOE KOWALSKI número 1 
.penas em disco - Czg 7.000,00 
Serie JOE KOWALSKI número Z 
Apenas em disco —- Czs 8.000,00 





PORTFOLIO 





Um sencacional programa de 
AGENDA, DIARIO e LISTA TELEFO- 
NICA , totalmente iconografico 
e simples de se usar. Possui 
ainda um CALENDARIO PERPETUO, 
CALCULADORA e recursos de pro- 
cura lógica entre dados e da- 
tas. O programa perfeito para 
seu dia-a-dia de 1989. 

Acompanha o programa, um ma 
nual detalhado e um disco cam 
a programação do ano que vem. 
penas em disco - Czs 5.600,00 

















Esta página da revista CPU INFORMATICA Foi 
totalmente composta na sistema “Desktop-publi- 
shing”, a última novidade eM sortuare de NS%, 





0 M5k PAGE MAKER e um softmaçe 100%, 
nal. desenuoluido por Alegandre Cruz é 
da NEMESIS INFORMATICA. 


Totalmente compativel com à BRAPHOS III de 
i à, B nivel de alfabetos, shapes 
os acessorios desenuoluidos pe- 


nacio- 
equipe 










PAGE MAKER FONTES Noi 
e 
PAGE MAKER FONTES Noz 


Alfabetos inéditos para UsG com q MSK PAGE MR- 
KER, GRAPHOS III e outros softs compativeis. 


PAGE MAKER CARTOONS No1 


Uma colecao de shapes é Figuras intditas para 
compor suas páginas gráficas ou seus desenhos, 
incluindo molduras, Figures humanas, vinhetas, 
veiculos e apliques decorativos. compativel 
com o N5S% PAGE MAKER € GRAPHOS 




























ACESSORIOS “MS -DESTAQUE* 


Os acessorios da Linha NS DESTAQUE tambem são 
compativeis com o N5k PAGE MAKER. Se uoce nin- 
da não possui estes "best-sellers", mproueite 
à ocasiso, São tel Lfnbetos é Shapes. 


TABELA DE PRECOS: 

























M5% PAGE MAKER 1.0 .. - tes 7e2úo,00 
MSK PAGE MAKER FONTES 1 . - Gzg 6.200,00 
M5X PAGE MAKER FONTES 2. - C25 6.200,00 
M5% PASE MAKER CARTOONS 1 «x Cz5 6.200,00 
N5% PAGE MAKER KIT: Incluindo o H5% PAGE MAKER 


os FONTES 1 € 2 € 0 CARTOONS É - Czg 20.000,00 


- 2 um 
-.. 1 OM 
1 om 
. 1 070 


GRAPHOS III versão 1.3 
ALFABETOS numero 1. 
SHAPES numero 1. 
TELAS numero 1 .. 









má 
[af 
- 
pe 


Um programa gerenciador 
de graficos comerciais e 
estatísticos com recursos 
ineditos sobre os progra- 
mas da fenero existentes 
ate então. Compativel com 
o MSX PAGE MAKER possibi- 
litando a produção de re- 
latorios impressos com al 
tíssima qualidade, E 
Em disco por Czs 5.500,00 

Para obter informações 
mais detalhadas sobre nas 
sos produtos entre em com 
tato conosca 


NEMESIS INFORMATICA LTDA. 
Caixa postal 4583 
Cep. Z0.001 Rio de Janeiro 


ou pelo telefone: 


VEMEGILS — (021) 2722-4400 


ou venha pessoalmente ao 


“SHOU-ROOM" NEMESIS 
Rua Sete de Setembro n 9Z 
sata 1910 Centro - BJ/BJ. 
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CPU é uma publicação da Águia Informática. 
Todos os direitos reservados. Proíbida a 
reprodução parcial ou total do conteúdo desta 
revista por qualquer meio sem autorização 
expressa da editora. 

Os artigos assinados são de total e única re- 
sponsabilidade dos autores. 

Os circuitos, dispositivos, compoentes, etc., 
descritos narevistapodem estar soba proteção 
de patentes. Os circuitos publicados só 
poderão ser confeccionados sem qualquer fim 
lucrativo. 

Os programas apresentados aos leitores, 
mesmo se fornecidos em disqute, são de pro- 
priedade dos autores, cabendo a eles todos os 
direitos previstos em lei. 


EDITORIAL 


Oano de 1988 está chegando ao final e, apesar de ter sido 
um ano cheio de surpresas econômicas e políticas, na área do MSX não 
podemos verificar lançamentos de hardware por parte dos fabricantes 
que lançaram o padrão no Brasil e que anunciaram uma série de 
periféricos para a linha. O lançamento de periféricos ficou a cargo de 
empresas que acreditam no desenvolvimento do MSX no Brasil. 

Na área de software podemos dizer que o mercado está a 
pleno vapor, com Concursos de Software e lançamento de programas 
novos, desenvolvidos no Brasil, visando a atender as as nossas neces- 
sidades e de acordo com as características técnicas dos equipamentos 
brasileiros. 

A área editorial também vem apresentando um desen- 
volvimento significativo, com lançamento de livros de excelente quali- 
dade e conteúdo praticamente todos os meses. 

No número anterior de CPU, tivemos alguns problemas 
com a gráfica que efetuou a impressão da revista. Algumas falhas 
também foram constatadas nas listagens, isto porque, a partir do quarto 
número, toda a diagramação passou a ser feita através de processo 
eletrônico, inclusive as listagens que receberam tratamento idêntico ão 
texto. A partir deste número continuamos a utilizar processos 
eletrônicos para a diagramação da revista, sendo que as listagens dos 
programas utilizadas foram impressas em uma impressora comum. 
Neste número publicamos novamente as listagens do número anterior 
que podem ter ocasionado dificuldades na leitura. 

Aproveito a oportunidade para, em nome de toda a equipe 
de CPU, desejar um Feliz Natal e Próspero Ano Novo. 

Nos encontraremos novamente em janeiro, no sexto 
número de CPU, que continuará crescendo como sempre. 


GONÇALO MURTEIRA 
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MSX NEWS 


NEWSOFT: 





A Newsoft, empresa pioneira 
no Rio de Janeiro em distribuição de soft- 
ware para a linha MSX, baseada em uma 
nova politica empresarial, lança em todo o 
País o I Concurso Nacional de Software, 
para MSX, com o intuito de descobrir e 
revelar novos talentos no mercado de soft- 
ware, 

O evento conta com o apoio do 
Cartão Nacional, que fará a distribuição 
dos prêmios aos ganhadores. 

Todos os detalhes do concurso 
podem ser encontrados neste número de 
CPU. 

A Newsoft também está ven- 
dendo diversos periféricos para a linha a 
MSX com a vantagem de o cliente poder 
pagar com o seu Cartão Nacional, tendo, 
portanto, até 30 dias para pagar. 

Esta vantangem também é ex- 
tendida para a compra de jogos e aplicati- 
vos. 

Em breve, a Newsoft estará em 
novo endereço, com modernas instalações, 
aprimorando o atendimento e a qualidade 
que sempre dispensou à sua clientela. 


EDITORA ALEPH +50 DICAS 


Será lançado, pela Editora 
Aleph, de São Paulo, o livro “+50 DICAS 
PARA MSX”. 

O livro vem a atender pedidos 
dos leitores do “CEM DICAS PARA 
MSX”, que é um dos livros indispensáveis 
para quem tem MSX e programa, e apre- 
senta 50 novas rotinas que poderão ser utili- 
zadas pelos programadores. 

Além de apresentar os pro- 
gramas, os autores fazem uma descrição 
completa de como chegaram aquele pro- 
grama, tornando, assim, muito mais fácil a 
asimilação por parte do leitor da idéia do 
autor e facilitando o seu uso posterior. 


NASHUA 


A Nashua iniciará, em breve, a 
produção de disquetes de 5 1/4” no Brasil, 
visando a atender o mercado nacional. 


TELCON - MODEM DE DISCAGEM 
AUTOMÁTICA 

Foi lançado pela Telcon 
Telemática, empresa de Porto Alegre, que 
lançou, já há algum tempo atrás o Multi- 
modem, um modem de discagem 
automática. O produto estará brevemente 
disponível nos revendedores autorizados 
da TELCON. 

Os modens da Telcon permitem 
a conexão do MSX com o Videotexto, 
Cirandão e comunicação Micro a Micro, 
possuindo software, desenvolvido pela 
própria empresa, podendo ser utilizado 
tanto pelos usuários de unidade de disco ou 
fita. 
seram 


NEMESIS 


A Nemesis está lançando uma 
série de programas aplicativos novos , dos 
quais podemos destacar o Page Maker, o 
Pontfolio, que vem a ser uma agenda com- 
putadorizada, com calendário perpétuo e o 
Hello, que vem a ser um sistema opera- 
cional que simplifica todas as funções de 
operação com disco, possuindo ainda testes 
de Hardware, tais como: velocidade de 
rotação de drive, alinhamento radial de 
cabeçote, teste de RAM e VRAM, mos- 
trando o mapa de ocupação do disco e 
diversas outras funções. 

O telefone da Nemesis é (021) 222-4900 


CHAMPION SOFTWARE 

A Champion Software, empresa 
Paulista da área de software, está de 
mudança marcada para breve. 
O novo endereço da Champion será: 


Rua Clélia 1837 
Lapa - São Paulo - SP 


MSX WORD 


A Ciência Moderna acaba de 
lançar o livro “MSX WORD - das versões 
1.6 à 3.0”, de autoria de Sérgio Guy Pin- 
heiro Elias e Paulo Roberto Pinheiro Elias, 
autores do Livro “dBase II Plus para 
MSX”, tambem da Ciência Moderna e já 
analisado em CPU. 

O MSX Word vem sendo desen- 
volvido pela Cibertron, que lançou há 
pouco tempo a versão 3.0 (veja CPU 
número 04) e , sem sombra de dúvida, é 
o processador de texto mais utilizado pe- 
los usuários do MSX , sendo baseado no 
TASWORD, da Tasman Software Ltd. 

Neste livro, os atores publicam 
as especificações técnicas mais importan- 
tes e uma documentação completa de como 
adaptaro MSX-WORD de qualquer versão 
às características da impresora do usuário. 

De nada adianta ter um ex- 
celente software se não sabemos os seus 
comandos e de como proceder para tirar o 
melhor proveito do programa e ter um 
rendimento de 100%. 

Da forma que o livro é apresen- 
tado substitui com inúmeras vantagens o 
manual que acompanha o software e, cer- 
tamente, é um investimento que será rapi- 
damente recuperado. 

A Ciência Moderna fica situada 
à Av. Rio Branco 156 loja 127 Rio de 
Janeiro - RJ - 20043 - Telefones: 021- 
262.5723 e 021-240-9327 - atendendo a 
pedidos de todo o Brasil, possuindo, além 
deste, todos os demais livros disponíveis, 
atualmente, para MSX. 


E e 


E a 











UM TECLADO INTELIGENTE 


PARA O MSX 


Uma grande quantidade dos atuais usuários de MSX se 
iniciou no mundo da informática com um pequeno Sinclair (TK 82, 
TK 85 ou CP 200). 

Assim sendo, as comparações são inevitáveis. O MSX, 
obviamente, ganha de longe, por ser uma máquina de muito maior 
porte e recursos. Apesar disso, alguma saudadezinha do pequeno 
SINCLAIR ainda sobra, pois, com uns miseráveis 8K de ROM 
(comparados aos 32K da ROM do MSX!) fazia algumas coisas que 
o MSX não faz. Uma delas, por exemplo, era a poderosa função 
VAL. 

No MSX, astring que serve de argumento ao VAL deve 
conter exclusivamente caracteres de algarismos (os outros são 
ignorados). No SINCLAIR ela pode conter qualquer coisa (al- 
garismos, variáveis, fórmulas, etc), de maneira a substituir, com 
vantagem, o comando DEFFN. 

OMSX, em compensação, é uma máquina versátil. Tão 
versátil a ponto de poder ser configurada para poder fazer coisas 
para as quais não foi projetada. 

Ela é a concretização do sonho de qualquer programa- 
dor (especialmente em Basic e Assembly). Só para exemplificar, 
desenvolvemos uma rotina que permite emular os recursos do 
VAL do SINCLAIR no MSX e que será brevemente publicada no 
livro “+50 dicas para MSX”. 

Esta versatilidade pode chegar às raias do absurdo: num 
ataque de extremado saudosismo, os programadores de uma 
softhouse, a XSM (até no nome fazem o MSX plantar bananeira!) 
desenvolveram um EMULADOR SINCLAIR, programa que sim- 
plesmente transforma o MSX nun SINCLAIR, lendo e rodando as 
fitas de toda uma biblioteca de programas que estava mofando em 
alguma gaveta esquecida. 

Dentro desta onda de “saudosismo”, resolvemos 


GAMA SOFTNEWS. Aqui tem tudo o que lhe interessa sobre seu 
MSX. Notícias sobre o CURSO GAMA DE BASIC, o 1º curso de Basic 
por correspondência do Brasil. GAMA TELESOFT, saiba como rece 
ber pela GAMA SOFTWARE os seus programas gravados em disco. 
através do telefone. GAMA HARDWARE, como adquirir toda a linha 
de periféricos e suprimentos para o seu MSX, através do correio. E a 
linha pioneira de programas para MSX e para o MSX-2. que assim co. 
moo GAMA TELESOFT é uma inovação exclusiva da sua GAMA 
SOFTWARE. 





PIERLUIGI PIAZZI, 
MILTON MALDONADO 


escrever esta matéria: uma das queixas dos “sinclaristas” em 
relação ao MSX é referente ao tempo de digitação de longos 
programas em BASIC. Afinal de contas, no SINCLAIR bastava 
apertar uma tecla (ou uma combinação de teclas) para que na tela 
aparecesse toda a palavra reservada. Se, no começo de uma linha 
de BASIC, digitássemos Y, apareceria o RETURN, enquanto que 
no MSX é necessário digitar letra por letra: R-E-T-U-R-N, 

O problema é parcialmente contornável se atribuímos 
às teclas de função (Fl a F10) as palavras reservadas mais frequen- 
tes. Assim mesmo, estaremos limitados a apenas 10. 

Porque não aproveitar a versatilidade do MSX para 
configurar seu teclado de maneira a emular o do SINCLAIR. 

Aproveitando a tecla SELECT do Expert (SLCT do 
Hotbit), que não é usada quando se está no modo edição de um 
programa em BASIC, elaboramos uma rotina em Linguagem de 
Máquina que reconfigura o teclado de maneira a produzir uma 
palavra reservada toda a vez que a tecla Select é pressionada 
simultancamente à de uma letra. As combinações que geram as 
palavras reservadas estão listadas na figura 1 

Esta rotina foi incialmente publicada no livro “100 
DICAS PARA MSX”, na página 15, tendo sido introduzidas, 
apenas, algumas pequenas modificações para reduzir as chances 
de erro na digitação. 

Digite, portanto, o programa da figura 2, tomando 
bastante cuidado com os códigos hexadecimais das linhas DATA. 

Como o programa não é muito curto, grave-o 
periódicamente, durante a digitação, para não perder todo o tra- 
balho em caso de falta de energia elétrica (ou sobrinhos irriquictos 
tropeçando no fio da tomada!). 

Quando o programa estiver pronto e gravado, digite 
RUN. 


“assess 


GRÁTIS! 


Preencha o cupom abaixo e remeta para: 
Gama Software Ltda. - Caixa Postal 94368 CEP 25800 
Três Rios - RJ - Tel (0242) 52-0687 


Solicite assinatura 
do nosso catálogo! 


NOME 





ENDEREÇO. 
BAIRRO 








CIDADE 





DATA — 4 ASSINATURA 


CPU 5 
































4 L=12:SCREEN OzWIDTH 40 61 DATA 41,52,50,54,52,28,00,43 
2 FOR E=&HD000 TO &HD1D7 STEP 8 62 DATA 4F,53,28,00,45,58,50,28 
3 5=09 63 DATA 00,53,54,52,24,28,00,4C 
4 FOR X=E TO E+7 64 DATA 4E,28,00,0C,50,72,6F,67 
5 READ CHIY=VALCO&HO+CS) 65 DATA 72,61,6D,61,20,65,73,63 
& S=S+Y 66 DATA 72,69,74,6F,20,70,6F,72 
7 POKE X 67 DATA 3A,0D,0A,54,48,45,20,50 
Ev 
8 NEXT X 68 DATA 49,4C,4F,54,20,65,6D,20 
9 L=L+4 69 DATA 46,61,6E,65,69,72,6F,2F 
40 PRINT USING/HH/;L;:PRINTO="; 70 DATA 34,39,38,38,2E,00,7E,A7 
:PRINT USING/HHBH”;S;2PRINT” “; 71 DATA CB,CD,A2,00,23,18,F7,00 
44 NEXT E 72 DATA FIM 
12 GOTO 73 73 PRINT:PRINT:PRINTOCONFIRMA?(S/N)” 
43 DATA 24,9B,Dí,CD,CE,Dí,21 74 AS=INPUTSC1) 
DD ARO é Ss IF AS="5” OR AS="s5” THEN GOTO 79 ELSE 
14 DATA DO,22,A5,FD,3E,C3,32,84 A ai 
45 DATA FD,;AF,32,D7.D4.C9,4F,34  INPUTEM QUE LINHA TEM ERRO”;L 
16 DATA D7,Di,A7,79,20,05,FE,18 76 LOCATE 0,20 a 
17 DATA 28, 49,09, RE dá 00,90 FERA RENT o DS tod op en! ECLE RETURN) 
18 DATA 5B,30,08,D6,40,47,21,72 aÃ Ê i 
19 DATA DO,18,0E FE, 61,38,2D.FE 79? DEFUSR=8HD000:POKE O,USR(0)=PRINT:PRI 
20 DATA 7B,30,29,D6,60,47,21,08 NT E vã çã 
21 DATA D1,7E,A7,23,20,FB,10,F9 80 FOR I=65 TO 90:PRINT C(SELECT)+"CHRS( 
22 DATA 3E,C9,32,A4,FD,7E,A7,28 13” = “;CHR$(24);CHRSCI)EFOR T=0 TO 100 
23 DATA 06,CD,A2,00,23,18,F6,93E NEXT TENEXT I x je 
24 DATA C3,32,84,FD,AF,32,D7,Di 81 FOR 1=97 TO 122:PRINT “(SELECT)+"CHRS 
25 DATA C4,C3,DA,08,4F,AF,32,D7 (1)3” = “;CHR$(24);CHR$CI):FOR T=0 TO 10 
26 DATA D1,79,C9,3E,FF,32,D7,D1  O:NEXT T:NEXT I 
27 DATA AF,C9,00,4E,45,57,00,42 82 END 
28 DATA 45,45,50,00,43,4F,4E,54 
29 DATA 00,44,49,4D,20,00,52,45 7 
30 DATA 4D,20,00,46,4F,52,20,00 THUNDERSOF T 
34 DATA 47,4F,54,4F,20,00,47,4F u 4 
32 DATA 53,55,42,20,00,49,4E,50 THE NAME OF MSX A 
33 DATA 55,54,20,00,4C,4F,41,44 PEÇA O NOSSO SUPER / 
34 DATA 20,00,4C,49,53,54,20,00 CATÁLOGO GRÁTIS! 
35 DATA 4€,4C,49,53,54,20,00,4D TEMOS APPLE é TAMBÉM! 
36 DATA 4F,54,4F,52,20,00,4E,45 
37 DATA 58,54,20,00,50,4F,4B,45 
38 DATA 20,00,50,52,49,4E,54,00 
39 DATA 50,53,45,54,20,28,00,52 
40 DATA 55,4E,00,53,41,56,45,20 PREÇO DA FITA. doo 
44 DATA 00,54,52,4F,4E,00,49,46 CORREIO . 200 
42 DATA 20,00,43,40,53,00,50,52 como + | cUPER PACOTES 
43 DATA 45,53,45,54,20,28,00,43 
44 DATA 40,45,41,52,00,52,45,54 PACOTE Nº1 PACOTE Nº4 
45 DATA 55,52,4E,00,45,4E,44,00 10 jogos — apenas 2.200 1 disco cheio — 2.200 
46 DATA 00,46,52,45,28,00,49,4E (disco inclúido) 2 disco cheios — 3.200 
46 DATA 46/28/00/41/54,4€,28.00 EEUAULEE dE 
EA A A A A AGR did Ana A A 10 — apenas 2.700 Aplicati dor — 
49 DATA 54,41,4E,28,00,53,47,4E (fita inclóida) roles FR) 
50 DATA 28,00,41,42,53,28,00,53 
St DATA 51,52.28.00,41,53,43,28 ma ma 
cativos + disco — 
de paro Aa ai 3.200 disco incluído) apenas 5.800 
5 ,28,00,55,53,52,00, 
54 DATA 2E,31,34,31,935,99,32,37 
55 DATA 21,00,4E,4F,54,00,50,45 COPY - IMAGINE (EXCLUSIVO ) 
56 DATA 45,48,28,00,54,41,42,28 
57 DATA 00/53/49,4E,28/00.49,4E Ae teia 
58 DATA 54,28,00,53,54,52,49,4E nominal e cruzado a MARCO ANTONIO TROV"AO VAZ. R. Carvalho 
59 DATA 47,24,28,00,52,4E,44,28 Alvim 278/501, Rio de Janeiro. RJ, CEP 20510 Tel. (021) 268-6360 
60 DATA 00,43,48,52,24,28,00,56 
6 








FIGURA 2 
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CDC LD 


NTE 
STRING 
EHDs 
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cat 
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CHR$ 
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Deverá aparecer na telaa figura 3 pedindo confirmação. 
Confira cuidadosamente todos os números da sua tela 
com os da figura 3. Se algum deles não bater, você poderá achar 
rapidamente a linha na qual o erro foi cometido. 
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Digamos, por exemplo, que você obteve a tela dá figura 4. Basta, então, checar a linha listada com sua correspon- 
Checando esta tela com a da figura 3, você percebe que dente à listagem da figura 2. Leve o cursor até o erro e corrija-o. 


na sexta linha, ao invés de aparecer 39=470, está 39=473. No nosso exemplo, um 8 foi confundido com um B (figura 6). Após 
Consequentemente, você não confirmará a digitação, a correção, tecle RETURN e rode o programa novamente. Repita 
teclando N (de Não). o processo até ter certeza de que não há mais nenhum erro. Neste 


ponto, você confirma teclando S (de Sim). 


FIGURA 4 FIGURA 6 








Neste momento, aparecerá uma mensagem pergun- O programa salta para a fase seguinte, colocando na 
tando em que linha está o erro. tela o pseudônimo do autor e listando todas as combinações de 
Você deverá digitar 39 (+ RETURN). SELECT e letras que geram as palavras reservadas (figura 7). 


Feito isto, o MSX gerará um comando de listagem, 
colocando o cursor sobre o próprio comando (figura 5). 
Aperte RETURN e a linha em questão será listada a 
seguir. 
FIGURA 5 FIGURA 7 
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Você pode, agora, gravá-lo como um programa BASIC ou como 
uma rotina em Linguagem de Máquina. Neste último caso, os 
comandos para gravação e leitura estão relacionados na figura 8. 


FIGURA 8 
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Tome cuidado para não invadir, com o programa que 
você está digitando, a região de memória entre os endereços 53248 
(&HD000) e 53719 (&HD1D7), pois é lá que se localiza a rotina 
de redefinição do teclado. 

Seu MSX, agora, não tem nada a invejar a um Sinclair, 
com relação à digitação de palavras reservadas. Use esta rotina 
para digitar programas em BASIC. Inicialmente, você demorará 
até mais que o normal, mas vale a pena investir um pouco de seu 
tempo nisso. Depois de um certo tempo, você ficará tão familiari- 
zado com esta técnica que sua velocidade de digitação de um 
programa chegará a dobrar. 


Pierluigi Piazzi é Diretor Editorial da Editora Aleph e 
co-autor dos livros: 

Coleção de Programas para MSX vol.1 e 2, Usando a 
Planilha Eletrônica no MSX, Aprofundando-se no MSX, Como 
usar seu HOTBIT, Curso de BASIC MSX, Curso de Música para 
MSX, Drives Leopard de 3 1/2", 100 dicas para MSX e +50 dicas 
para MSX (em lançamento). 


Milton Maldonado Jr. (The Pilot) é co-autor dos livros: 

— Coleção de Programas para MSX Vol.1 e 2, Aprofun- 

dando-se no MSX, Programação Avançada em MSX, 100 dicas 
para MSX e +50 dicas para MSX. 


— O programa fornecido neste artigo foi, originalmente, 
publicado no livro “100 DICAS PARA MSX”, da Editora Aleph, 
e foi testado na presente versão num Expert 1.1, gentilmente 
cedido pela Gradiente, e num HOTBIT. 

Este programa pode ser usado por usuários de MSX, 
mas sua comercialização, seja na forma de programa isolado, seja 
na forma de sub-rotina de outro software, é vedada por lei sem o 
expresso consentimento, por escrito, da Aleph Publicações e 
Assessoria Pedagógica Ltda. 


UM PROFISSIONAL 
ACIMA DE 
QUALQUER 


SUSPEITA 


dBASE Il PLUS MSX. 
Com ele você faz 
o melhor negócio. 


O dBASE Il Plus MSX é uma forma 
completamente nova de gerenciar seus dados. 

E uma linguagem que permiti criar, de forma 
fácil e rápida, um sitema completo de informações 
para seu negócio que faz exatamente o que voçê 
quer. Contabilidade, mala direta, controle de 
estoque, gerenciamento de produção, perfil de 
cliente, enfim, sistemas que irão manipular os 
problemas modernos que surgem a cada dia. 

O dBASE II Plus MSX não é o único meio de 
manipular dados no seu microcomputador, mas é o 
melhor! Médicos e advogados, contadores e 
vendedores, corretores e imobiliárias, donas- de- 
casa, pequenas e grandes empresas, todos 
utilizarão melhor, seus dados, com o d BASE Il Plus 
MSX 

Tudo o que voçê tem a fazer é trabalhar 
com as informações usando nomes e conceitos que 
voçê já conhece, e que seu micro passa a conhecer 
através do d BASE II. Voçê pode trabalhar com ele 
na forma Interativa ou Programada. 

Portanto a comunicação é perfeita: clara, 
objetiva e rápida. 

Produzido pela DATALOGICA- 
PRINCESSWARE sob licença da Ashton-Tate- 
USA 

Produto em disco com seu respectivo nº de 
série, manual completo e garantia. 

Conta também com suporte técnico e direito 
a atualização de nova versão gratuitos. 

Software mundialmente aprovado. 

PRÁCTICA E PRINCESSWARE 





ATENÇÃO 
Este produto voçê encontrará nos 
Revendedores Autorizados; exija sempre o original. 
A Lei de Software, traz benefícios mútuos. 
Vai proteger seu software. 


PRINCESSWARE 


O futuro desta Geração Já chegou. 


Para maiores informações: 

Av. Açocê, 579 — Indianópolis 
CEP 04075 - São Paulo - SP 
Tel.: (011) 549-0545 

Caixa Postal 64635 - CEP 05497 
— São Paulo - SP 
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AS INSTRUÇÕES SECRETAS 


DO Z-80 


Se você der uma olhada cuidadosa numa tabela de 
mnemônicos, perceberá que existem alguns “buracos” nas colunas 
“após CB” e “após ED”. Talvez você já tenha se perguntado o 
que acontece se tentar utilizar essas “instruções”. De fato, algo 
acontece e, por incrível que pareça, até com certa lógica! Temos, 
então, mais instruções disponíveis para utilizar o Z-80 que, no 
entanto, não são divulgadas em seus manuais e, portanto, não 
fazem parte das tabelas dos programas Assembler e Disassembler. 
Vamos, então, estudar essas “instruções secretas”. O motivo pelo 
qual estas instruções não são divulgadas não é bem certo e 
preferimos não emitir opiniões tentando advinhar o porquê. O fato 
é que elas existem. 


A ESTRUTURA DAS INSTRUÇÕES 

Se todas as combinações possíveis de um byte fossem 
utilzadas para indicar instruções, teríamos apenas 256 instruções 
disponíveis para o Z-80. Assim, quatro bytes foram reservados 
para permitir o uso de mais instruções: 

CBHe EDH, que colocamos em “frente” a um dos 252 
bytes restantes, produzindo outras instruções. 

DDH e FDH que colocados em “frente” a quase todas 
as instruções que utilizam o par HL, permitem utilizar os pares IX 
elv. 

Desse modo, como oficialmente temos 248 instruções 
após CBH, 58 instruções após EDH e mais 140 instruções possi- 
bilitadas por DDH e FDH, temos: 

252 + 248 + 58 = 698 instruções oficiais. 

Na realidade, são “apenas” 696, pois os códigos 22H e 
ED 63H correspondem ambos a LD (KK), HL e os códigos 2AH 
e ED6BH correspondem, ambos, a LD HL, (KK). 

Vamos, agora, tentar preencher alguns malabarismos 
com os bytes para tentar “cavar” novas instruções. Num esforço de 
padronização, utilizaremos os mesmos mnemônicos apresentados 
na maioria da literatura a respeito dessas novas instruções. 


Linguagem de Máquina - MSX 
Editora Aleph 


AS INSTRUÇÕES NÃO OFICIAIS 

Comecemos, então, a preencher os oito bytes restantes 
para as instruções após CBH, ou seja, de 30H a 37H. Teremos, 
então, uma nova instrução de rotação similar à SLA, que, em vez 
de resetar o bit 0, este é setado. Esta instrução é chamada de SLI 
(Shift Left Inverted) e corresponde a multiplicar o valor do 
registro,ou memória, por 2e somar 1 ao resultado. O CARRY pode 
ser usado para detectar “estouros”. 

FIGURA 1 - A instrução SLI. 


CARRY 
OTIErEIO-: 


Utilizando os bytes DDH e FDH, temos, então, dez 
novas instruções: 

FIGURA 2 - Dez “novas” instruções de rotação (-128 
<=Q>=127. 


INSTRUÇÃO | cóDIGO | 


CB37H 
CB30H 
cB31H 
cB32h 
cB33H 
CB34H 
CB35H 
CB36H 
DDCBQ36H 
FDCBQ36H 





























DRIVE 5.1/4 SLIN COMPLETO 
PLACA 80 COLUNAS 
*MODEN DE COMUNICAÇÃO 


St PACOTÃO EM DISCO: 100 JOGOS (ESCOLHER) + 5 APLICATIVOS + 10 DISCOS = 40.000,00 
SE PACOTÃO EM FITA: 100 JOGOS (ESCOLHER) + 5 APLICATIVOS + 7 FITAS = 40.000,00 





*EXPANSOR DE SLOT (C/4 SLOTS) 
GABINETE P/DRIVE COM FONTE FRIA 
+ INTERFACE DUPLA P/DRIVE 








SOLICITE NOSSO CATÁLOGO DE PROGRAMAS PARA FAZER A SUA ESCOLHA. ATENDEMOS TODOS OS ESTADOS EM 24 HORAS VIA SEDEX. 
PARA FAZER SEU PEDIDO ENVIE CHEQUE NOMINAL COM CARIA DETALHADA PARA A. NASSER. 
RIO DE JANEIRO: RUA GONZAGA BASTOS 411/203 — VILA ISABEL — RJ CEP 20541 — TEL (021) 234 0775 





FILIAL CURITIBA; AV 7 DE SE/EMBRO. 3146 LOJA 20 — SHOPPING SETE — CURITIBA — PR — CEP 80040 
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Até agora, mencionamos que os bytes FDH e DDH 
poderiam ser colocados em frente de quase todas as instruções que 
envolvam o par HL para utilizar os registros IX e IY. De fato, as 
únicas “exceções” são as instruções EX DE,HL, EXX e as 
instruções que utilizam o par HL mas são precedidas pelo byte 
EDH. O que acontece se tentarmos utilizar o par HL? De fato, se 
colocarmos os bytes FDH e DDH em frente a qualquer instrução 
precedida por CBH, com exceção das instruções que utilizam o par 
HL e das instruções BIT, teremos 336 novas instruções, que 
trabalham de modo bastante peculiar: elas executam a instrução no 
endereço indicado por IX e IY mais Q (número entre -128 e 127) 
e, após isto, copiam oresultado no registro indicado pela instrução! 
Note que isto equivale a duas instruções oficiais. Por exemplo: 


SET7,A=CBFH | DDCBQFFH = SET 7,(1X+0) 
LD A(IX+Q) 


Fica difícil, entretanto, definir um mnemônico para este 
tipo de instrução. Poderíamos, por exemplo, utilizar o seguinte: 


SET 7,A/(1X+0) 


Aqui estão, portanto, essas 336 novas instruções: 


FIGURA 3 - 
112 “novas” instruções usando SET (-128<=Q<=127). 





OUTRO 
PROFISSIONAL 
ACIMA DE 
QUALQUER 
SUSPEITA 


SuperCalc Il MSX. 
Com ele você calcula 
as vantagens. 


O SuperCale 2 MSX é uma planilha de 


cálculo eletrônica, um programa de planejamento 
eletrônico. 

Com o passar do tempo, a sua utilização se 
tornou cada vez mais frequente. Milhares de 
usuários no mundo todo acharam esta a melhor 
maneira de aproveitar toda a capacidade e 
eficiência de seus micros. 

E um instrumento para planejamento e 
previsão financeira e numérica. 

O Super Cale 2 MSX pode ser usado para 
desenvolver o orçamento inteiro de uma 
companhia, para organizar o orçamento doméstico 
de uma família ou para coletar dados numéricos/ 
estatísticos 

Sem dúvida a ferramenta ideal para 
administradores, engenheiros, vendedores, 
pesquisadores, estudantes, etc. 

Fácil de usar não requer grandes. 
conhecimentos de computação; foi feito para ser 
usado logo no seu primeiro contato. 

Nada mais de lápis , papel e calculadora, 
agora somente seu MSX e o SuperCalc 2 MSX. 
Produzido pela Compucenter-Princessware sob 
licença da Computer Associates- U.S.A. 

Produto em disco com seu respectivo nº de 
série, manual completo e garantia. Conta também 
com suporte técnico e direito a atualização de nova 
versão gratuitos. 

Software mundialmente aprovado. 

PRÁCTICA E PRINCESSWARE 


ATENÇÃO 
Este produto voçê encontrará nos 
Revendedores Autorizados; exija sempre o original. 
A Lei de Software, traz benefícios 
mútuos. Vai proteger seu software. 





PRINCESSWARE. 


O futuro desta Geração já chegou. 


Para maiores informações: 

Av. Açocê, 579 - Indianópolis 
CEP 04075 - São Paulo - SP 
Tel.: (011) 549-0545 

Caixa Postal 64635 - CEP 05497 
— São Paulo-SP 
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Os registros IX e IY (de 16 bits) não podem ser 
divididos em 2 registros de 8 bits. Entretanto, se usarmos os bytes 
DDHe FDH em frente a qualquer instrução que utilize os registros 
HouL separadamente, mas que não utilizem o par HL, executando 
as instruções precedidas por CBH ou EDH, teremos acesso às 
metades dos registros. 

Se utilizarmos instruções com o registro H, estamos 
lidando com o byte mais significativo de IX ou IY, que chamare- 
mos HX e HY respectivamente, e, se utilizarmos instruções com 
o registro L, estaremos lidando com o byte menos significativo de 
IX ou IY (que chamaremos LX e LY, respectivamente). 

Temos, então, 92 novas instruções. 


FIGURA 6 - 52 “novas” instruções. 





Apesar do aspecto “estranho” da figura 6, ela é simples 
de utilizar. Os seguintes exemplos devem esclarecer a questão: 


LDC, HY = FD4CH 
LD HX, LX = DD 65H 
LDLY,D =FD6AH 
LD HY, 16 = FD 26 10H 


FIGURA 7 - 24 “novas” instruções aritméticas e, finalmente, as 
instruções lógicas e de comparação. 
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Você pode perceber que ainda existem alguns “bura- 
cos” nas instruções após EDH, e muitas outras combinações 
possíveis. No entanto, até agora nada foi publicado a respeito 
dessas possíveis novas instruções, possivelmente porque elas pro- 
duzem algum resultado “ilógico” ou resultado nenhum. Se você 
dispuser de tempo livre, divirta-se tentando descobrir o que estas 
instruções que faltam podem fazer. Entretanto, com estas 438 
novas instruções, temos, agora, 1136 instruções! Já é o suficiente 
para se divertir. 

Você poderia perguntar sobre o efeito dessas novas 
instruções nas flags. O efeito é equivalente às instruções “oficiais” 
e pode ser descoberto por analogia. 

Novamente, salientamos que essas instruções n ão po- 
dem ser utilizadas com os Assemblers e Disassemblers. En- 
tretanto, as pseudo- instruções (ou NOPs posteriormente 
preenchidos) podem facilitar as coisas. 

DB 0DDH 

DEC L;equivalem à DEC LX 

DB OFDH 

SBC A,H ;equivalem à SBC A, HY 

Alguns Assemblers utilizam duas pseudo instruções, 
usadas para definir dados de um byte (Byte), ou dois bytes (Word), 
respectivamente:DB e DW. 


Com relação aos registros HX, LX, HY e LY, é con- 
veniente salientar que sua utilização depende do seu programa. Se 
você precisar de muitos registros e puder deixar de lado as 
facilidades de endereçamento de memória através dos pares IX e 
Iy, então pode utilizá-los sem problemas. 
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GERENCIANDO ARQUIVOS 


EM DISCO 


BRUNO MARRUT 


É comum ouvirmosos usuários de microcomputadores, 
principalmente os iniciantes, dizerem que gostariam de guardar 
receitas de bold, por exemplo, em seu computador. 

Os usuários de fita logo percebem que trabalhar com 
arquivos de dados em fita é inviável, pois a gravação/leitura de 
dados de uma fita cassete é uma tarefa que pode consumir alguns 
bons minutos do seu tempo. 

Já os usuários de disco contam com uma enorme van- 
tagem que é a rapidez com que os dados podem ser gravados, ou 
lidos, do disco, tornando, assim, o armazenamento de uma receita 
uma tarefa viável e, dependendo do programa, até com vantagens 
sobre o ultrapassado fichário. 

Neste artigo irei comentar as funções de gravação e 
leitura em disco, apresentando como exemplo um programa de 
mala-direta. 

Antes de iniciarmos, gostaria de apresentar as 
diferenças entre os dois tipos de arquivos que podem ser geren- 
ciados no disco: arquivos sequenciais e arquivos aleatórios. 


Arquivos sequenciais: se você estiver utilizando uma 
fita cassete, Os seus arquivos estarão gravados sequencialmente, 
ou seja, um após o outro, sendo que você não poderá acessar o 
segundo sem passar pelo primeiro, mesmo que avance rapida- 
mente a fita. 

Suponhamos que o seu arquivo seja sequencial e que 
nele estejam gravadas 235 fichas. Caso você queira ler a ficha 234, 
terá que ler todas as 233 anteriores, mesmo sabendo que a ficha 
procurada é a 234. 

Arquivos aleatórios: os arquivos aleatórios apresen- 
tam a vantagem de permitirem o acesso direto a um determinado 
registro, independente da sua posição, permitindo, assim, uma 
visualização de uma informação muito mais rapidamente. 

Nos arquivos sequenciais a extensão de um registro 
pode ser variável, isto é, se você tiver programado a sua ficha para 
conter até 100 caracteres, mas, na digitação, tiver ocupado apenas 
80 das 100 posições disponíveis, o espaço ocupado no disco será 
o correspondente às 80 posições utilizadas e não às 100 previa- 
mente previstas, resultando, portanto, em economia de espaço no 
disco. 

Em se tratando de arquivo aleatório, a extensão é fixa, 
ou seja, o espaço ocupado por cada uma será igual, independente 
mente da quantidade de caracteres que tenhamos digitado. 

Caso existam posições que não tenham sido utilizadas, 
as mesmas serão preenchidas com o código correspondente ao 
espaço em branco. 

Em ambos os casos, a extensão máxima que podemos 
ter para cada registro é de 256 bytes ou caracteres. 
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Aprenda os comandos gerenciadores 
de arquivos no MSX 





Nos arquivos sequenciais a alteração de uma ficha já 
gravada, ou de um conjunto delas, é uma tarefa complicada e nada 
prática. Para alterar uma ficha de um arquivo sequencial, devemos 
transferir todos os registros para variáveis indexadas e, depois de 
efetuarmos as devidas correções, efetuar a regravação de todo o 
arquivo. Este processo está intimamente ligado ao fato do arquivo 
sequencial ter sua extensão variável para cada registro e limitaaca- 
pacidade do arquivo à memória disponível do computador 

Um arquivo sequencial deve ser aberto e fechado cada 
vez que for acessado, o mesmo não ocorendo com o aleatório, que 
deve ser aberto no início do programa e fechado no final do 
processamento. 

Portanto, nosso arquivo de mala-direta será um arquivo 
aleatório.Os comandos que utilizaremos em nosso programa, e que 
pertecem ao Disk Basic, estão comentados abaixo: 


OPEN 
SINTAXE: OPEN “d:arquivo” AS & NRO LEN=NRO 
FUNÇÃO: abrir um arquivo para a entrada e ou saída de dados. 
Ao executarmos o comando OPEN, reservamos uma 
área da memória do computador, chamada de “BUFFER”. Éláque 
os dados são armazenados, temporariamente, antes de serem 
gravados no disco, ou quando são lidos do mesmo. 


NRO é utilizado para especificar o número do arquivo 
em processamento. É definido pela instrução MAXFILES. 

LEN=NRO define a quantidade de bytes que cada 
registro irá ter. Caso nada seja especificado, será assumido pelo 
sistema o valor máximo, que é de 256 bytes. 

Podemos abrir, simultaneamente, até 6 arquivos para a 
entrada de dados. Contudo, para a saída, apenas um poderá estar 
aberto. 

CLOSE 
SINTAXE: CLOSE & NRO 
FUNÇÃO: Fechar um arquivo aberto anteriormente. 

NRO - Especifica o arquivo a ser fechado. Caso nada 
seja especificado, todos os arquivos que se encontrem abertos 
serão fechados. 

Onão fechamento de um arquivo após o mesmo ter sido 
aberto, tornará impossível a utilização das informações armazena- 
das. O comando CLOSE transfere todos os dados armazenados no 
BUFFER para o disco, o que só ocorre normalmente quando o 
BUFFER é totalmente preenchido. 


LOF 
SINTAXE: LOF NRO 
FUNÇAO: Utilizada para indicar a extensão de um arquivo. 


EE E SNS io DS A 


FIELD 
SINTAXE: FIELD NRO, A AS X1$,B AS X2$ 
FUNÇÃO: organiza o espaço dentro de um registro, através de 
variáveis alfanuméricas, ou seja, informa como será dividido o 
registro. 

Asvariáveis definidas através da instrução FIELD não 
podem receber os dados diretamente, através de LINE INPUT, 
por exemplo, pois elas são alocadas no BUFFER. Então, os dados 
entrados devem ser atribuídos inicialmente a outras variáveis que 
não sejam as definidas através do FIELD, através de LINE INPUT, 
por exemplo, e depois transferidas para as variáveis definidas por 
FIELD, através dos comandos LSET e RSET. Feito isto, os dados 
poderão, então, ser transferidos para o disco, através do comando 
PUT. 

Para a leitura de dados do disco também utilizamos a 
instrução FIELD, sendo que, ao invés de utilizarmos PUT, iremos 
utilizar GET, que permite que seja lido um registro por vez, 
transferindo o seu conteúdo para o BUFFER, estando os dados 
disponíveis para manipulação. 


LSET 
SINTAXE: LSET variável 1 = variável 2 
FUNÇÃO: Transferir os dados da memória principal para o 
BUFFER variável 1 = definida em FIELD 

variável 2 = variável de trabalho 


PUT 

SINTAXE: PUT N,N” 

FUNÇÃO: grava no disco as informações do registro. 
N= número do arquivo aberto pela instrução OPEN 
nº = número do registro que será gravado 


GET 4 

SINTAXE: GET N,N" 

FUNÇÃO: Iê os registros do disco, colocando-os no BUFFER. 
n = número do arquivo aberto pela instrução OPEN 
nº = número do registro que será lido. Caso não seja 

utilizado, será lido o registro após o último lido pelo comando 

GFRT, ou o primeiro. 


—— 


CHAMPION SOFTWARE 


MSX 2 


MEGARON MSX: PINGUIN ADVENTURE, F1 SPIRITS, 
SALAMANDER, DRAGON QUEST, NEMESIS 2, CALL FORCE 
MEGARON MSKX 2: ZANAC, HINOTORI, KING KONG 2, 1942, 

LABYRINT, METAL GEAR, VAMPIRE KILLER, LUPIN 3RD, 
DRASLEY FAMILY, SUPER RAMBO 


E MUITO MAIS!!! 


MSX :AMAUROTE, BANANAS, EL MUNDO PERDIDO, 
CAR FIGHTER, OCEAN CONQUEROR, CAR JAMBOREE 
MSX II: THUNDER, CHOPPER, CHESS, REDLIGHT, OF AMS 
TERDAN, PIXEL 2, PHILLIPS DESIGNER'S 





MAXFILES 
SINTAXE: MAXFILES = N 
FUNÇÃO: Definir a quantidade de arquivos que podem ser 
abertos pela instrução OPEN 


MKDS - MKS$ E MKIS 

MKDS (nro. de dupla precisão) 

MKSS$ (nro. de simples precisão) 

MKIS (nro. inteiro) 
FUNÇAO: Converter números ou variáveis numéricas para 
variáveis alfanuméricas. 


Em um arquivo de acesso direto só podemos trabalhar 
com STRINGS. Portanto, variáveis numéricas (dupla precisão, 
simples precisão ou inteiras) devem ser convertidas em STRINGS. 

Quando formos definir o espaço ocupado pela variável 
em um registro, através da instrução FIELD, para dados numé- 
ricos, devemos usar a quantidade de “bytes” referentes aos 
números já convertidos, observando que: 


MKDS - converterá o dado numérico de dupla precisão 
em uma variável alfanumérica de 8 “bytes”. 

MKSS - converterá o dado numérico de simples 
precisão em uma variável alfanumérica de 4 “bytes”. 

MKIS - converterá o dado numérico inteiro em uma 
variável alfanumérica de 2 “bytes”. 


A utilização de dados numéricos merece uma atenção 
especial na hora de definirmos a instrução FIELD, pois os campos 
não poderão ser menores e, caso sejam maiores, haverá desperdí- 
cio de espaço. 

Descrevemos acima os comandos do DISK BASIC que 
iremos utilizar para o nosso programa de Mala Direta. 


Acreditamos que, analisando o programa e os conceitos 
transmitidos acima, você estará capacitado a desenvolver qualquer 
tipo derotina para gravação e leitura de dados em disco, que poderá 
ser utilizada em seus próprios programas. 
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10 REM MALA DIRETA 

20 REM REVISTA CPU NRO 5 

38 REM BRUNO MARRUT 

40 REM LIMPA TELA E DEFINE AREA DAS VAR 
TAVEIS 

50 CLS:SCREEN B:HIDTH 48:KEVOFF 

60 CLEAR 3000:MAXF ILES=2 

78 REM ABRE E DEFINE A ESTRUTURA DO ARA 
uIvo 

BM OPEN "AzARQUIVO! AS 4 LENSLI7 

90 C=LOF(L)/ 11761 

100 FIELD 41,48 AS NO$,48 AS ENS,15 AS 
BAS,15 AS CI$,2 AS UF$,5 AS CES 

118 REM EXIBE MENU NA TELA 

128 CLS:PRINT"REVISTA CPU" :PRINT"ARQUIV 
O DE MALA DIRETA” 

138 PRINT:PRINT "L - ENTRADA DE DADOS 
148 PRINT "2 - BUSCA POR NOME 

158 PRINT "3 - BUSCA POR REGISTRO 

160 PRINT "4 - LISTA ARQUIVO NO VIDEO 
178 PRINT "5 = FIM 

198 28=INPUTS(1) 

200 ON VAL (5) GOTO 220,508,640,1208,1 
E 

210 GOTO 198 

228 REM ENTRADA DE DADOS 

238 OLS:PRINT "REGISTRO ";C 

248 PRINTEPRINTSLINE INPUT “NOME *; Nó 
258 LINE INPUT "ENDERECO *; Ef 

2h LINE INPUT "BAIRRO *; B$ 

270 LINE INPUT "CIDADE "; C$ 

280 LINE INPUT "ESTADO *; 56 

298 LINE INPUT "CEP"; P$ 

388 CLS:PRINT "REGISTRO ";C 

318 PRINT NS:PRINT ES:PRINT B$:PRINT C$ 
3PRINT S$:PRINT P$ 

320 PRINT:PRINT'DESEJA EFETUAR ALGUMA À 
LTERACAO? (S/N)" 

338 185 INPUTS(L): IF 78="S" OR 28="5* TH 
EN GOSUB 3480 ELSE IF 78="Nº OR 28=*nº 
THEN 420 

428 REM GRAVACAO DOS DADOS NO DISCO 
438 LSET NOS=N$:LSET ENS=ES:LSET BAS=B$ 
3 LSET CI$=0%; LSET ES$=S6:LSET CES=P$ 
435 PUT BH, CsC=C+L 

448 CLS:PRINT "REGISTRO GRAVADO" :PRINT: 
PRINT"DESEJA EFETUAR NOVA ENTRADA? (S/N 
y 

458 18=INPUTS( 1): IF 2855" OR 76="s" TH 
EN 228 ELSE IF 28=ºNº OR 28="n" THEN 12 
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MALA DIRETA 


8 

S8Q FEM BUSDA POR NOME 

s10 LS 

528 JF C<2 THEN PRINT “ORQUIVO VAZIO": 
To 120 

530 LINE INPUT “NOME A PROCURAR ";NS 
SHG FOR K=t TO C-1 

558 GET 4L,K 

560 TF N$=LEFTS(NOS,LEN(NS)) THEN BOTO 
ss 

SPO NEXT K 

588 PRINT "NOME NAO ENCONTRADO! 

ses GOSUB 1000 

590 PRINTSPRINTSLINE INPUT "PRESSICNE Q 
UALQUER TECLA PARA VOLTAR? 28 

em GOTO 128 

61O PRINT:PRINT “DESEJA (AJLTERAL (C)AM 
CELHR OU (VIOLTAR AO MENU PRINCIPAL?" 
620 I8=INPUTS(1):1F 285"A" DR 16="aº TH 
EN BOM ELSE IF 28="" OR 1$="v" THEN 12 
O ELSE JF 2650" OR 1$="c" THEN 758 
638 BOTO 628 

440 REM BUSCA POR REGISTRO 

658 CLS:PRINT "QUAL O MMERO DO REGISTR 
me 

660 K=B: INPUT Ks1F 10=0 THEN PRINT "RES 
ISTRO NAO EXISTE. ULTIMO REGISTRO EFETU 
ADO FOI O DE NUMERO: *; C-1:PRINT:PRINT 
"PRESSIONE UMA TECLA PARA VOLTAR” 

678 GET 41,K:BOSUR 1000 

688 GOTO 618 

758 REM APAGOR REGISTRO 


788 PRINT "REGISTRO DELETADOS :PRINT"PRE 
SSIONE QUALGER TECLA PARA RETORNAR 

785 O8=INPUTS(1):1F 08C>"” THEN 128 
08 REM ALTERASAO DE REGISTRO 

ses 05 

818 PRINT NOS:PRINT ENS:PRINTEAS:PRINTC 
IS:PRINT ES$:PRINTCES 

828 GOSUE S000 

848 PRINT "PRESSIONE QUALQUER TECLA PAR 
A VOLTAR AO MENU PRINCIPAL" 

858 INPUT 2$:60T0 128 

1000 REM DISPLAY DE INFORMAÇÕES NO VIDE 
0 

1005 PRINT; PRINTºREGISTRO *;K:PRINT 


1RLO PRINT NOS 

1820 PRINT ENS 

1838 PRINT R$S;SPC(1);CI$;SPO(1)jESSASP 

C(L);0ES 

1878 RETURN 

1208 REM RELATORIO NO V, DE 

1285 OLS:PRINTPARA PARAR O ROLAMENTO D 

A LISTAGEM PRESSIONE STOP” 

1248 TF EXZ THEN PRINT "ARQUIVO VALIO - 
PRESSIONE QUALQUER TECLA PARA CONTINUA 

RºsINPUT 26:1F 76 (9%! THEN GOTO 120 
1228 FOR kzd TO C-1 

1230 GET 41 KsGOSUE 1000 

1248 NEXT k 

1258 PRINT “FIM DA LISTAGEM, PRESSIONE 
LIMA TECLA PARA RETORNAR" : INPUT 7626070 
120 

1300 CLOSE 

1310 END 

3408 PRINTELINE INPUT "QUAL O CAMPO QUE 
DESEJA ALTERAR?" 56 

3508 IF 28="NOME” THEN LINE INPUT "NOME 
mM 
3 

3698 JF 78="ENDERECO” THEN LINE INPUT 
ENDEREMO *; 

3708 TF 265"BAIRRO ? THEN LINE INPUT "E 
AIRRO "; B$ 

3880 1F 78=ºCIDADE * THEN LINE INPUT "C 
IDADE *; C$ 

3908 IF 265"ESTADO * THEN LINE INPUT "E 
STADO *; 56 

ABOO IF 78="CEP * THEN LINE INPUT “DEP 
5 

4020 RETURA 

500 PRINTSLINE INPUT “QUAL, O CAMPO QUE 
DESEJA ALTERAR?" 578 

SA0O TF 78="NOME* THEN LINE TNPUT "NOME 
"15 

S20B JF 78="ENDERERO! THEN LINE INPUT * 
ENDERESO *; EM 

SB SE Tee BAIRRO “TREM LINE INPUT PE 
AIRRO *; HAS 

SADO 1F 78="CIDADE * THEN LINE INPUT *C 
IDADE *; CI$ 

SSMO 1 285"ESTADO * THEN LINE INPUT "E 
STADO *; ESS 

5600 JF 28="CEP * THEN LINE INPUT "CEP 
*; DES 

5728 RETURN 
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- mais de 20.000 clientes - 
- O maior estoque do mercado - 
- mais de 1.000 programas - 
- q mais completa linha de periféricos - 
- mais de 1000 revendedores - 
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ASSISTÊNCIA TÉCNICA PARA MICROS +» MONITORES E DRIVES 





INTERFACES DRIVES 80 COLUNAS MODEM IMPRESSORAS , ETC 


REDE DE COMUNICAÇÃO PARA LIGAR SEU MSX A MICROS 16 BITS 






CURSOS EM VIDEOCASSETE E MUITO MAIS... 
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INTELIGÊNCIA ARTIFICIAL 
EM PASCAL 


ANTONIO F.S.SHALDERS 
VICTOR ELIASZ WELMAN 


Programas que simulam o 
raciocínio humano já são uma realidade, 
deixando os cenários de filmes de ficção 
científica, como por exemplo os computa- 
dores HAL e SAL, do filme “2010. Tais 
computadores eram capazes de incríveis 
façanhas, tal como reconhecimento e 
síntese de voz, e um incrível poder de 
dedução e raciocínio. 

E lógico que o que propomos 
neste artigo não chega nem aos pés disso, 
mas não deixa de ser muito interessante, 
principalmente se for levado em conta que 
não foi usada nenhuma linguagem 
específica para programação em IA, como 
o LISP e o PROLOG, sendo realizado 
totalmente em Pascal. 

Um programa em IA simula de 
algum modo o pensamento humano (ou 
pelo menos tenta), fazendo que o próprio 
programa tome uma decisão ou então faça 
uma dedução sobre algum fato. 

Você que sempre escuta de seus 
pais e colegas: “O que é que você tanto faz 
na frente daquela máquina burra ?!” terá 
chance de se defender, mostrando-lhes que 
o seu computador não é uma máquina 
assim tão burra, e que, se corretamente pro- 
gramado, pode até “aprender”. Caso o 
programa cometa algum erro, este aprende 
a não fazê-lo novamente. 

Um caso típico de programas que 
utilizam técnicas de IA são os jogos de 
tabuleiro como o xadrez e o gamão. As 
primeiras partidas são facilmente vencidas 
por você, mas, depois de um certo tempo, 
fica praticamente impossível vencer a 
máquina, pois o jogo “aprende” a não per- 
der, com seus próprios erros. 


O que podemos fazer em Pascal é simular- 
mos matematicamente alguns procedi- 
mentos que facilitam a programação em 


O algoritmo utilizado é o da 
árvore (sem podas), por ser o de mais fácil 
implementação, mas nem por isso o pro- 
grama deixa de ser interessante, pois o 
mesmo superou todas as expectativas em 
relação ao desempenho. 

O método da árvore consiste em 
seguirmos um determinado caminho 
(galho) até chegarmos a uma resposta coer- 
ente (fruto). 

O programa mostrado é conhe- 
cido tecnicamente por reconhecedor. No 
nosso caso, como o próprio nome indica, é 
capaz de reconhecer uma pessoa baseado 
em suas características ou em fatos a ela 
referentes. 
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A situação correspondente na 
vida humana é a seguinte: um amigo seu 
lhe pergunta se você conhece uma deter- 
minada pessoa. À priori, você não se lem- 
bra e vai, então, fazendo uma série de 
perguntas que o ajudarão a reconhecê-la. 
O reconhecimento, neste caso, dá-se 
quando uma imagem mental da pessoa em 
questão é formada no seu consciente. 

você tenha pensado em 
outra pessoa diferente, irá procurar alguma 
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Para construirmos uma árvore, 
basta escolhermos uma semente inicial (1) 
e ir multiplicando este valor por dois para 
uma resposta positiva, e multiplicando por 
dois e somando um para umarespostanega- 
tiva. 

Concluímos, então, que um ca- 


coisa que diferencie a pessoa em questão minhoé formado por números que são o 


da que você pensou, de modo a não come- 
ter o mesmo erro novamente, certo ? 

Analisemos, agora, como é 
constituída uma árvore. Para isso, observe 
a figura 1 atentamente. 


SAIS 
VA / O 
did À a e 


8-9: 10 4) 1» 5. 14 15 


O número 1 no topo da árvore é a 
semente (ou pergunta inicial). A partir 
desta pergunta, podemos distinguir até 
oito frutos (que estão na base da árvore). 
Os frutos são as terminações dos galhos. 

Note que há apenas um caminho 
possível para chegarmos a cada fruto e é 
isso que nos permite identificá-lo corre 
tamente. e 

Suponha que nos “nós” da árvore 
(chamaremos de “nós” os pontos por onde 
passam dois ou mais galhos) hajam 
perguntas e cada vez que a resposta for 
“sim”, você ande para a esquerda, e 
quando for “não”, ande para a direita. 

Por exemplo: para chegarmos ao 
fruto 13, devemos responder não à 
pergunta do nó 1, sim à do no 3 e não à do 
nó 6. Chegaremos, então, ao fruto em 
questão. 

Suponha, agora, que a resposta 
obtida em 13 esteja errada. Devemos, 
então, converter este fruto em um nó, com 
uma pergunta que nos permita distinguir a 
resposta certa da obtida, e criar dois frutos, 
um com a resposta certa e outro com à 
obtida. 

No caso mencionado, as últimas 
linhas da árvore ficarão como as mostradas 
na figura 2. 


dobro, ou o dobro mais um, do número 
anterior ao mesmo, no caminho. 

Este é o procedimento 
matemático adotado pelo algoritmo da 
árvore (sem podas). São exemplos de 
caminhos: 

a) 1,2,4, 8,17,34,69 

b)1,3,6, 13,26, 53,107 

O que o nosso programa faz é 
estruturar uma árvore deste tipo para então 
seguir os galhos até chegar a um fruto coe = 
rente . Ê 

No programa, a semente é a 
pergunta “É homem ?” e os dois frutos 
iniciais são “João”, para uma resposta afir- 
mativa, e “Maria” caso a reposta seja nega- 
tiva. 

Você deve substituir estes dois 
nomes por outros de sua conveniência. 

Se o programa for utilizado com o: 
Turbo Pascal em opção de compilação em 
memória, o array responsável pelo número 
de nomes não deverá ser superior a 220. Na 
opção de compilação em disco, não deverá 
ser superior a 840. 

Este programa foi elaborado para 
reconhecer pessoas, mas nada impede que 
seja usado em áreas profissionais, como 
por exemplo na área médica. 

Neste caso, se você é médico, 
poderá colocar em cada nó um sintoma e 
nos frutos um pré-diagnóstico. 

E possivel aplicarmos o programa 
em robótica. 

Neste caso, suponha que você 
quer fazer com que um robô pegue um de- 
terminado objeto em sua casa e o leve até 
você. O robô teria um mapa de sua casa e 
iria lhe perguntando a respeito dos locais 
onde o objeto em questão estaria, se- 
lecionando, assim, o local exato para ir até 
lá e trazer-lhe o tal objeto . 

As possibilidades de uso de TA são 
ilimitadas. 

Há casos de programas para 
geoprospecção, estrategistas militares, 
diagnóstico de doenças, e muitos outros 
tipos. 
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program intart; 


[otimização de arrays para 
velocidade) 
(8X-) 


(área de definição de tipos) 


[área de definição de variáveis) 


var 
q : arrayf0..250] of 

pd; [array do número de pessoas) 
dieb pd; 


(le um caractere do teclado) 


function grichar; 
var rpichar, 
begin 
readin(rp); 
gr=upcase(rp); 
end; 


function rx(x:integer):real; 


function db(x:real):real; 
begin 
as=truncQIn(OAn(10)); 
ifa<=9 then 
db;=2*x 
else 
db=a(a-9)*x 
end; 


(dobrar mais um) 
function dm(x:real):real; 
begin 


[achar nomes) 


PROGRAM 


function achar(x:real)iinteger, 
var ya:integer; 


while alya].e<x do 


(ler dados do disco) 


procedure ds; 
begin 
E 


assign(aqvaqv arg); 
resei(aqv); 
while not eof(aqv) do 


begin 
read(aqud); 
alil:=d; 


(gravar no disco) 


procedure gds; 
begin 
assign(aqv.aqv. arq); 
rewrite(aqu); 
for h:=0 to j do 
write(aqv.qlh]); 
close(aqv); 
end; 


procedure ir(ss-fi;rr:real); 


[controle principal de processos) 


procedure ctr, 
begin 
1=0, 
while I<=j do 
begin 
te:=g[l]; 
iftek=1 then 
begin 
writeln(te.p, "7 
re=gr, 
if re=s then co:=db(te.c) 
else co:=dm(te.c); 





writeln('Por acaso é: “); 
writeln(ie.p, 


writeln('Quem é 7"); 

readin(ar); 

writeln('Dê uma 
diferença entre *); 

writeln(te.p, e “ar); 


all points paso: 


ir(ar,co); 


ialização do vetor) 


procedure init; 
var v:string[11); 
begin 
writeln('Carregar arquivo 7"); 
r 


if v=s then 
begin 
writeln('Nome do arquivo 
7X 
readin(v); 
clrser, 
aqu arq=v; 
lds; 
end; 
writeln; 
end; 


[finalização do programa) 


procedure final; 
var vistring[11); 


begin 
writeln('Salvar arquivo 7"); 
if v=s then 


writeln('Nome do arquivo 





(apresentação) 


procedure apresentação; 
begin 
clrscr; 
writeln(* 
e 
writeln(* 
writeln(* 


IntAn 1.00%); 
(C) 1988 


by); 

writeln(* Victor E. 
Welman'); 

writeln(* 

writeln(* 
Shalders' 

writeln(*- 


a 

end; 
(corpo do programa principal) 
begin 


apresentação; 
1,10). 


(*** semente da parte 
masculina ***) 


all) p:="oao"; 


[** semente da parte 
feminina ***) 


al) p:="Maria”; 


m 
while m>0 do 


in 
writeln(' Pense em algués 
ctr, 
writeln(' Mais alguém ? *); 
re:=gr; 
if eds then m:=0; 

end; 
final; 


end. 
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INTERPRETADOR DE EXPRESSÕES 


Muitos de vocês, leitores, já ti- 
veram vontade de fazer um programa que 
pudesse gerar gráficos de funções de sua 
escolha. 

Alguns, talvez, já até tenham 
começado, porém muitos de vocês esbar- 
raram no problema de interpretar funções. 
resolveram (aliás, quebraram o galho) 
modificando-o para cada função que 
quissesem traçar. Outros apelaram para um 
menu fixo de funções com o máximo de 
funções que puderam imaginar. 

Uma parte tentou fazer um inter- 
pretador de expressões e acabaram 
desistindo ou, se o conseguiram, foi a muito 
custo. 

E, finalmente, os raros que con- 
seguiram sem grandes dificuldades. 

Porém, estes já tinham um ponto 
de partida, uma idéia inicial. 

Mas qual é a idéia inicial e qual é 
o ponto de partida ? 

Este artigo se destina a dar uma 
idéia inicial de como se faz um interpreta- 
dor de expressões e, muito superfi- 
cialmente, de como funciona um compila- 
dor, usando o método de descida recursiva, 
apresentando um exemplo de interpreta- 
dor,, cuja listagem está neste artigo. 

Mas será este exclusivo a este ar- 
tigo? Nada disso. Isto não implica que o 
nosso interpretador de comandos não possa 
ser usado juntamente com outros pro- 
gramas, pois ele é totalmente independente 
do programa de traçado de funções. 

Sua operação é bastante simples: 
basta, apenas, seguir alguns pequenos cui- 
dados. 

Começarei definindo o que é 
“Token”, “léxico”, “sintática” e 
“semântica”, com uma analogia com a 
língua portuguesa (que me perdoem os pro- 
fessores de português). 

Digamos a sequência de palavras : 
formiga elefante a o matou. 

Esta sequência não forma uma 
frase porque não está sintaticamente cor- 
reta. Porém, lexicamente, é correta: todas 
as palavras têm seus sentidos isoladamente. 

Pode-se dizer que cada palavra é 
um Token por ser um elemento com sentido 
isoladamente. 

Digamos, agora, uma nova 
sequência de palavras : 

a formiga matou o elefante 
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Esta sequência apresenta-se 
sintáticamente certa, iec., sem erros 
sintáticos, porém semanticamente está in- 
correta : uma formiga não pode matar um 
elefante ! 

Observe esta nova sequência : 
o elefante matou a formiga. 

Esta sequência está correta tanto 
do ponto de vista lexical, como do sintático 
ou do semântico, pois todos os seus ele- 
mentos existem na língua portuguesa, estão 
obedecendo às regras de sintaxe e possuem 
um sentido final. 

Mas o que isto tudo tem a ver com 
ocaso? 

Uma linguagem de programação 
tem suas palavras reservadas, seus operan- 
dos, suas funções e suas constantes (seus 
elementos léxicos, que numa linguagem de 
programação é chamado de Token). Possui 
também uma sintaxe. 

Um programa qualquer tem de ter 
um sentido, pelo menos o suficiente para 
gerar um código executável (ou para ser 
interpretado). 

Agora já podemos definir a nossa 
“linguagem”, i.e., a forma da expressão que 
deverá ser utilizada pelo interpretador. 

Deverá haver : 





1) Parênteses : Tokens “(“ e “9”. 

2) Multiplicação e divisão : Tokens “*” e 
Ses 

3) Soma e subtração : Tokens “+ e 

4) Funções constantes e variáveis xe y : 

Tokens do tipo identificador, que o analisa- 

dor léxico vai descobrir a que categoria 

pertence verificando em uma tabela de 

símbolos, 

5) Já que algumas funções terão mais de um 

parâmetro, vai existir o Token “” como 

separador. 

6) Os operadores unários “+” e “-”. 

7) Constantes numéricas. 

Com isto já temos os seguintes 
Tokens definidos Si a pop aÃ 
"P4"-”, identificadores e constantes 
numéricas. 

Mas como diferenciarmos os 
operadores “+” e “-” unários dos binários 
(com dois operandos) ? 

Isto é simples: pelo seu contexto. 
Será mais fácil verificar isto vendo os dia- 
gramas sintáticos, que vão dos diagramas 1 


ao 4. 


ANTONIO F. SHALDERS 


Um diagrama sintático é a 
representação gráfica de uma sintaxe. 

Nos diagramas sintáticos, o que 
está em um círculo (ou em uma figura com 
extremidades arredondadas) é um Token. 
Este não pode ser mais expandido (apesar 
de se poder expandir mais nos casos de 
identificadores e constantes numéricas, 
porém esta expansão fica ao encargo do 
analisador léxico). 

O que está em um retângulo pode 
ser expandido em um outro diagrama 
sintático. 

O método de descida recursiva 
consiste em fazer com que cada diagrama 
seja uma rotina que será chamada para fazer 
a expansão do seu diagrama, chamando 
outras rotinas para fazer a expansão dos 
seus “sub-diagramas”. 

Para entendermos melhor como 
se implementa o digrama no Pascal, usare- 
mos como exemplo o analisador de 
expressões. 

Para isto, será dada uma 
introdução de como utilizá-lo. 


O ANALISADOR DE EXPRESSÕES. 

O analisador de expressões está 
dividido em 3 arquivos que são “gIbldef.p”, 
“compila.p” e “interpr.p”, que devem ser 
incluídos nesta ordem. 

O primeiro arquivo contém as 
definições globais e uma rotina de 
inicialização que se chama “inicio”. 

O segundo contém a rotina de 
“compilação”. Não entenda por 
compilação a geração de um código 
executável, mas sim uma codificação mais 
fácil de se interpretar e com isto faz-se a 
verificação sintática da expressão. 

O nome da função é “compila” e 
recebe uma string e devolve a situação da 
“compilação”, i.e., qual foi o erro e, se não 
houve, retorna “0”. 


Os erros são : 


1) Estouro de constante 

2) Token irreconhecível 

3) Identificador desconhecido 

4) Token inesperado 

5) Parênteses não fechado 

6) Parênteses não aberto 

7) Número de parâmetros inválido 





Oterceiro arquivo contém o inter- 
pretador em si, que se chama “interpreta”, 
tendo “x” e “y” como parâmetros, retor- 
nando o valor calculado e a situação na 
variável “status”, 

Esta variável vai nos indicar seo 
resultado é válido ou não, e se não, qual foi 
o erro. 

Os códigos são (por máscara de 





bits) : 

$01 divisão por zero. 

$02 fora de faixa. 

$04 estouro de exponenciação. 

$08 erro com logarítmo. 

$10 erro com potência. 

$20 erro em raiz. 

Oexemplo de uso é o artigo men- 
cionado anteriormente. 


A IMPLEMENTAÇÃO 

Na listagem do “compila.pas” 
vêem-se da linha 15 até a linha 41 a tabela 
de símbolos do interpretador, i.e., os iden- 
tifique ele é capaz de reconhecer. Nela 
estão contidas as constantes, funções e os 
elementos “x” e “y”. 

As linhas que vão de 75 a 215 são 
do analisador léxico. Este identificará os 
Tokens, e se o Token for um identificador, 
será feita uma busca na tabela de símbolos 
para descobrir qual é o tipo e qual éo valor, 
ou o número de parâmetros (para funções) 

Foi usada uma busca sequencial 
para facilitar a implementação de novas 
funções (um bom exercício). 

O diagrama sintático 1 correspon- 
de ao procedimento “expressão” declarado 
na linha 219 e tem seu corpo contido nas 
linhas que vão de 301 a 305 (função 
“expressão” declarada em 11 e com corpo 
em 252 a 266 no interpretador) que chama. 
o procedure “mult” (função “mult” no in 
tepretador) e vai repetir o loop se o Token 
atual é um “mais” ou um “menos”, caso não 
haja erro. 

O diagrama sintático 2 correspon 
de ao procedimento “mult” que está decla 
rado na linha 228 com corpo nas linhas de 
293 a 299 (função “mult” declarada em 16, 
com corpo em 228 a 250 no interpretador) 
que chama o procedimento “fator” (no 
intepretador), pedindo depois um novo 
Token e repetindo o loop, se este for um 
“vezes” ou um “divisão”, caso não haja 
erro. 

O diagrama 3 corresponde ao 
procedimento “fator” que está declarado 
na linha 230, com corpo nas linhas de 262 
a 291 (função “fator” declarada em 21 e 
com corpo em 200 a 226 no interpretador) 
que faz a sequinte sequência: 


1) Pede um Token ao analisador léxico. 
2) Se este for das classes “mais” ou 
“menos”, então pede um novo. 


3)Casoeste seja “idmf. fc”, que indicauma 
função, então chama a “fc trat”. 

Caso este seja da classe 
“abr pris”, que indica abertura de parên- 
teses, então chama-se o procedimento 
“expressão” e testamos se houve um 
fechamento de parênteses. 

Note que esta é uma chamada 
recursiva. 

Caso seja o resto, i.e., os outros 
Tokens válidos para este contexio, 
aceitamo-os sem fazer mais nada. 


O diagrama 4 corresponde ao 
procedimento “fe. trat” que está declarado 
na linha 232 com corpo nas linhas de 237 a 
260 ( função “fc. trat” declarada em 25 com 
corpo de 186 a 198 no interpretador) que 
faz a seguinte sequência : 


1) Pede um Token ao analisador léxico. 

2) Testa se este é um parênteses. 

3) Faz um loop chamando o procedimento 
“expressão” e contando o número; de 
parâmetros até que o Token testado seja 
diferente de “ vírgula” ou haja umêrro. 
4) Testa o número de parâmerros. 

5) Testa se o token atual é “fch prts” que 
indica que o parênteses está fechado. 


O interpretador, como já devem 
ter notado, não é muito diferente na 
implementação. 

As principais diferenças são: 


1) Nas fases “expressão” e “mult” existem 
variáveis temporárias para acumular o re- 
sultado parcial, o tipo da próxima operação 
e a chamada para o novo nível é feita 
diretamente em uma operação. 

2) Existe a função “fc. calcula” para calcu- 
lar as funções que fazem parte da 
expressão. 

3) Não existem testes de sintaxe e 
semântica (a não ser testes de erros de 
execução), nem chamadas ao analisador 
léxico, o que nos faz ganhar tempo na 
interpretação. 


A vantagem de fazer-se uma 
“compilação” prévia está no fato de se fazer 
a verificação sintática e semântica e a 
análise léxica uma vez só, mesmo pre- 
cisando usar os Tokens muitas vezes. 

Desta maneira economiza-se um 
tempo significante na interpretação. 

Pode-se fazer uma comparação 
(que será um bom exercício), construindo 
um analisador de expressões que faça as 
análises léxica, sintática e semântica 
enquanto interpreta a expressão. 

Uma observação: os interpreta- 
dores Basic fazem uma análise léxica 
prévia do programa que está sendo traba- 
lhado, conhecida como forma compactada 


de se salvar um programa, e quando se 
manda listar o programa em questão natela, 
ele os transforma para formato ASCII, tro- 
cando os símbolos pelos seus identifica- 
dores correspondentes, porém não é feita 
uma análise sintática prévia. Esta é feita a 
tempo de interpretação, provocando perda 
de tempo durante os loops. 

Nesta implementação a análise 
semântica ficou muito unida com a análise 
sintática, o que não acontece muito com os 
compiladores, pois é o analisador 
semântico que controla a geração de 
código, e sempre é o analisador sintático 
quem rege todas as ações (inclusive neste 
interpretador). 

Uma coisa bem interessante é que 
se tomarmos algumas precauções, pode- 
mos reunir todos os includes apresentados 
em um único. 

Note que o interpretador aceita 
funções de duas variáveis, estas cha- 
mando-se “x” e *y”. 

Como se pode ver, apesar de não 
ser trivial, a leitura de expressões 
matemáticas pelo teclado é possível de ser 
feita (obviamente com muito bom senso). 
Em Basic, isto seria impossível, pelo 
menos no nível do interpretador apresen- 
tado, que é bastante sofisticado. 

Espero que este artigo seja de seu 
agrado e que dê a idéia inicial de como 
funciona um intepretador (e um compila- 
dor) ao leitor, e espero que, em uma outra 
oportunidade, possa editar algo mais sofis- 
ticado como, por exemplo, um montador 
Assembly. 
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Arquivo 3 compila.pas 
1 


pag. 3 f 


2 
3 function compila( cadeia : tipocadeia ) byte ; 


vpe 
5 tipofccteoxy = record 
é nome. idntf : stringl tam idntf 7 ; 
7 case idnkf-classe é tipo token of 
8 idnkE-fc E Coparam byte Dr 
9 idntflcte 3 ( cte-valor 5 real ); 
10 end; 


const 
13 nunidntf = 23 ; 
4 pesledtes array Cf .. numidatf ] of tipo.fe-cte-xy = 














tó ( nome. idnt: + idntf-classe : idntf-fc ; nparam 
17 + idntf-classe 2 idntf-fc ; nparam 
18 "3 idntf-classe 2 idnbf.fc ; noparas 
19 5 idntf.classe : idntf-fc ; nparam 
u + idntf-classe eo 

a cte.valor : 2. 

2 5 idntf-classe 

3 5 idntf-classe 

a : idntf.classe 

E] + idntf.classe 

26 7 idntf.classe & il ; Aparas 
EIA 5 idntf-classe  idntf fc ; nparam 
28 (nome. ida + idntfclasse : idntfcte ; 

E) É 6, Chevalor E 3.4M159265809 )) 

% (nome-idntf : pow”; idntfclasse : idntf-fc ; ;nparaa 
a ( nome idntf : “rand idntf classe : idntf-fc ; nparam 
E) * 'roug” 5 idntf-classe : idntf-fc ; noparam 
3 5 idnkf-classe 5 idntf-fc ; nparas 
E ; idnbf classe 3 idnkf.fc ; ncparas 
E ; idnkfCclasse 2 idnkfLfc ; ncparam 
3% 3 idntf-classe 5 idatf-fc ; n param 
EA 5 idntf-classe : idntf-fc ; nparam 
3 3 idntf-classe : idntf-fc ; nparam 
É) X ml 3 idntf-classe 3 idntf-f ), 

o ; (Cnomecidntf 3 'y 3 idntf.classe : idntf.2 ) 

E 

43 var 

“4 prata te ; 

“ np cadeia ipo-cadeia ; 


46 pont.lst.atual 


ipopont st token ; 
47 expreerro 


oolean ; 





30 procedure inicializas 
Sá var 


2 aux id 
a Peaux é Elin Ast.token ; 


5 begin 
E vhile cabeca 1st () nil do 





begin 
E P-aux := cabeca Ist ; 
E) cabeca. Ist := cabeca. Ist*.proximo ; 
o dispose( p-aux ) 
ot end; 
be 


63 new( cabeca Ist 
64 pont.Ist atual := cabeca Ist ; 
65 pont-Istatual* proxiao := nil ; 








67 pos-cadeia 





7 cadeia 3= cadeia + MO 


B asi ion lexico 3 boolean ; 
al v.aux base valor 3 real ; 


tl A mer i 

sina * integer ; 
EM eg 
22 CPU 
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:2), 


2, 
31), 
1), 
21), 
1), 
1), 
31), 
1), 
:1) 


Sfssssasas=sssenaess 


É begin 





next pont st atual*.proxiao ); 
pont.Ist.atual = pont. Ist.atual*.proximo ; 
pont st atual*.proxi anil; 








lexico 2= true ; 
while cadeial 
pos-cadei; 





cadeia ) in [609,71 do 
suce( pos.cadeia ) ; 





case cadejat pos.cadeia 1 of 





while cadeial pos-cadeia J inda... z!, AS Ido 
begin 
ii=succl ii); 
tap-cadeial à ] := cadeial pos.cadeia 1 ; 
pos-cadeia := succ( pos cadeia ) | 


end; | 
tmp.cadeial 0 ] = chr(i); 


mio: 1; 
while ( tab fc.cte.xyl meio ].nose.idntf () tap-cadeia ) and 
( seio Conuncidntf ) do 
aeio 3= succ( meio ); 


nas tab.fc.cte.xyl meio J.nome.idatf = tup.cadeia then 
egin 





tab.fc.cte.xyl meio J.idntf classe ; 
case pont.! Ist. atual”.classe of 
idnkf-fc Ê 
ont Ist atual !.idntf.fe.cod 2= neio ; 
idntf-cte é 
pont.Ist.atual*. idntf-cte.valor 








tab.fc.cte.xyl meio J.cte.valor 
end I 
end 
else 
begin | 
pont.l pi atual”. es 
st 


erro; 





pos.cadeia := pred( pos.cadeia ) 





cte; 


egi 
pont.Ist.atual*.classe := 
valor F 





ah cadeial pos.cadeia Jin E 0" .. 9] do 

egin 
valor := valorxê + ord( cadeial pos.cadeia 1) - 48; 
Pos-cadeia := suce( pos.cadeia ) 

E cadeial pos.cadeia ) = "." then 


egin 
base 


pos.cadeia 
peito cadeial pos.cadeia in L '0".. "9" Ido 






succ( pos.cadeia ) ; 


valor 
ase/1 
pos.cadeia := 


48 base; 





(ord( cadeial pos.cadeia 1 ) 





sucel pos.cadeia ) 

end; 

if upcase( cadeial pos.cadeia 1 ) = "E" then 
in 





pos-cadeia == succ( pos.cadeia ) ; 
v aux = 0.0; 


ig sinal == 1; 

fóo if cadeial pos.cadeia ] in [ "+," then 
163 begin 

144 if cadeia prsraia 1=*" then 





succ( pos.cadeia ) 


169 vhile cadeial pos.cadeia 1 in "9". 
17 begin 

171 Voaux := 
172 pos-cadeia 
173 end; 


*9" Ido 


--aux810 + ord( cadeial pos.cadeia ] )- 48 ; 
succ( pos-cadeia ) 








15 if vaux ) 37.0 then 

176 begin 

177 pont. 1st.atual*.classe := erro ; 

178 pont.Ist.atual*.n.erro := 1 ; 

179 lexico := false 

180 end 

181 else 

182 valor := valorkpot( abs( valor), sinalxy.aux ) 
183 end; 


185 if pont. Ist.atual*.classe () erro then 
186 pont. Ist.atual*.cte.valor := valor; 


188 pos-cadeia := pred( pos cadeia ) 
19% end; 

UR z 

192 Pont Ist -atual* classe := fim Inh ; 


194 mt Ist. atualº.classe := nais ; 





196 we pont-Ist tual*.classe := menos ; 
198, , pont st atualt.classe 2= vezes ; 
e pont.Ist.aual classe := divisao ; 
ia nr pont.1st-atual.classe := abr.prts ; 


a na pont-1st.atual classe 3= fchoprts ; 


2% : pont.1st-atual”.classe := virgula ; 
else 


begin 
EU pont.Ist atual! .classe := erro ; 
pu pont.Ist-atual*.n.erra := 2 ; 
at lexico := false 
ao end 
23 end; 
2u Pos-cadeia := succ( pos.cadeia ) 


218 (SA-) 
219 procedure expressao ; 


221 procedure expr-trat.erro( numerro : 
222 begin 
223 pont.lIst.atuali classe := erro ; 
224 pont.Ist.atual“.n.erro is numerro ; 
expr.erro := true 
» 226 end; 
227 
228 procedure ault; 
2 


byte ); 





a procedure fator; 
232 procedure fe.trat; 
238 var 


24  peaux : tipopont.Ist.token ; 
= cont 2 byte; 


237 begin 
238 peaux = pont.lst.atual ; 


2M if lexico then 


a if pont.Ist.atual*.classe () abr.prts then 
2 expr.traterro( é ) 
a else 
2 begin 
us cont := 0 
26 repeat 
27 cont = succ( cont ) 5 
248 expressao k . 
EU until ( pont.Ist.atual".classe () virgula ) or exproerro ; 
E if pont.. a id dd O fch.prts then 
E exprtrat.erro 
23 else if cont () tab.fc.ctexyl poaux".idntf.fccod J.n-param then 
A exprtrat.erro( 7 ) 
2 
2% else 
27 expr.erro := true 
258 end; 
2 
268 begin 
at df lexico then 
22 begin E Tg 
263 if pont Ist.atual*.classe in [ mais menos ] then 
au expr.erro := not lexico ; 
=] 
26 if not expr.erro 
27 case pont. st. dat «Classe of 
268 abr.prts é 
28 egin 
2 expressao ; 
A ira 
if not expr.erro then 
E) if pont.Ist.atual*.classe () fch.prts then 
2" exprtrat.erro( 5 ) 
EE] end; 
26 idntÊ-fc 2 
27 fctrat ; 
28 cte , 
2 idntfd 
28 idntf2 
E idntfcte > 
asa i 
28 else 
om expr.trat.erro( 4 ) 
28 
286 end 
o else 
288 expr.erro := true 
283 end; 
Es] 
291 begin 
2 repeat 
fator; 

2a if not expr.erro then 
295 expr-erro := not lexico o 
29% until not ( pont.Ist.atual*.classe in [ vezes,divisao 1 ) or expr.erro 

; 
mo. 
299 begin 
Mo repeat 
3 ut Ra: 
mo until not ( pont Ist.atual*.classe in [ mais,menos ) ) or expr.grro 
383 end; 
34 (54) 
E) 
Mo. 
M begin 
MO inicialia ; 






Ria ici = fin Inh ) and not expr.erro then 


ro then 
pont. Ist.atual*.n.erro 
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(11H ESSE IE = DD 
Arquivo : interpr.pas pag. Pd 
! 8 fe.calcula := In( tab.paraml É 1); 
mw 6: Clog) 
5 functioa interpreta( X,Y 3 real ; var status : byte ) E real; ES if tab paras É 3 (= 0 then 
4 const u begin 
5 quase. zero = 0.000001 ; E] status := status or MM8 ; 
8 % fecalcula 2= 0 
7 var end 
8 pont.lst.atual : tipopont.Ist.token ; se 
5 a : 8 feccalcuta 32 In tab.paranl 41 )/ 2.3250509099 ; 
10 84) M 9: Cx) 
4f function expressao : real ; A if tabparasl £ ] ) tabparanl 2 ) then 
var n fccalcula := tab.paraml é ) 
13 tupvalor : real ; Ee] else 
n sinal ? integer ; Mu fe-calcula = tabparaal 2); 
5 1: Cain) 
T; function mult : real ; % if tab.paranl 4] € tab.paraml 2 ] then 
17 var ” fecalcula := tab.paraal é 1 
18 tmpoyalor aux : real; % else 
49 aultiplicacao : boolean ; ” fe.calcula 2= tab.paraml 2] ; 
% 1a fi: Cad) 
24 function fator : real ; 16í if tab.paranl 2] () O then 
22 var ig? fecalcula := tab-paraal 4 ] 
23 sinal ireal; 103 tab.paranl 2 Jxtrunc( tab-parant É J/tab.paranl 2 1) 
% im else 
25 function fe.trat : real É 185 begin 
26 const 186 fecalcula = 0; 
27 nummaxpara = 0; 187 status = status or 994 
E 180 end; 
199 43: Cpow) 
ipa.pont Ist-token ; ita if tab.paraml É 2 = 0 then 
yte ; tt fecalcula 
rray [4 .. nunmasparas ] of real ; fi else if tab.paranl É 1 ) O then 
413 begin 
34 function fe.calcula : real ; 114 aux := tab.paraal 2 JeIn( tab.paraml 11); 
35 var 415 
3%  auxireal; tó if aux ) 87,0 then 
7 117 begin 
ca begin tg status 2= status or 849 ; 
case p aux". idntf-.fc.cod of 112 fe-calcula 3= exp( 87.8 ) 
Y ti: Cabs) too end 
4 fe.calcula := abs( tab.paranl 4 1); ta else 
2 23 (cos) t22 fecalcula := exp( aux ) 
4 fe.calcula := cos( tab.paranl £ 1); 123 end 
M 3: (cossec) 124 else 
45 begin 1% begin 
44 aux := sin( tab.paraal £ 1); 126 aux := tabparanl 2 JxIn( - tabparanl 1); 
4 if aux = 0 then 127 if Caux 07.0 ) and (abs( tab.paraal 2) ) (= maxint ) then 
48 begin 128 df odd( trunc( tab.paranl 2 1) ) then 
E) aux 3= quase zero ; 127 fe-calcula := - expl aux ) 
E) status := status or 542 1% else 
E end; 1 fecalcula 2= exp( aux ) 
E) 132 e 
E fe-calcula 2= 1.6 / aux 18 begin 
5 end; 14 status 2= status or S10 ; 
5 4: Ccotg) 1% fe.calcula := exp( 87,0 ) 
5 egin 1% end 
5 aux := sin( taboparant 11); 197 end; 
E) if aux = À then 138 tz Crand) 
59 begin 139 fccalcula := randos( trunc( tab.paranl 1) )); 
w aux = quase zero ; 148 153 Cround ) 
s status := status or 502 sí fecalcula := round( tab.parasl £ 1); 
[+ end; te i 
4 fc-calcula := cos( tab.paranl 4 1) / aux 
65 end; % 145 ; 
4 6: Lew) Mó 
n if tab.paraal 4 7) 87.8 then E 
E ; := status or SM ; Hu 
) cocalcula := exp( 87,0 ) 
neu a FE 
be) else tão 
7 fe-calcula := exp( tab-paraal 4 1); 139 á 
To Cm) 14 if tab.paraal É 
ai if tab-paranl É ] (=0 then 155 fc-calcula 
7% begin 156 else if tab. a L + 8 then 
7 status := status or 508 ; 157 fc.calcula 
8 fecalcula 2= 6 158 else 
n end 139 fe-calcula : 
[) else 160 48: Csin) 
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sento zmaçsooã 


ss 


1 fe-calcula := sin( tab.paraml É ] ); 
142 19: Est) 

163 if tao paraat 1146 then 

1ó4 begin 

165 status += status or 820 ; 

146 fe-calcula = 0 

187 end 

148 else 

169 fecalcula := sqrt( tab.paraal É 1); 
178 um 








quase zero ; 
176 status i= status or 80 
177 end; 


179 fe-calcula := sin( tabparaal £ 3) / aux 


end; 
iBt 21: Ctrunc) 
182 fecalcula := trunc( tab.paraal £ 1) 


no begin 
p-aux := pont.Ist.atual ; 


189 pont.lst.atual := pont.Ist atual.proximo ; 





194º cont: 

192 repeat 

193 cont := succ( cont ) ; 

14 tab.paras [ cont ] := expressao 


195 until pont.Istatual*.classe () virgula ; 
197 fetrat := fe calcula 

28 begin dd 
a pont.Ist atual := pont.Ist.atual.proxiao ; 
M3 sinal i=+1,0 


am if pontilst.: abial! «Classe in [ sais menos 1 then 
205 begin 


2% if pont. st atual* classe = aenos then 
EUA sinal := 1,0; 

2 

EUA pont-lst.atual := pont.Ist.atual!.proxino 
a end; 


212 case pont.Ist.atual*.classe of 
o  abroprts : 





24 fator := sinalxexpressao ; 

2 idntf fc 

ató fator = sinalxfe.trat ; 

27  idntfii 

Me fator = sinaltX; 

ao idntf.2 É 

E fator = sinalay ; 

pen idntf.cte 

per Fator := sinaltpont. st atual" idntf-cte-valor ; 
Bia mete 








24 3 fator := sinalxpont. st atual*.cte valor 
9 1; 

294  aultiplicacao := = true ; : 

o  repeal 


if multiplicacao then 
tupovalor := tap. valorkfator 


2u else 
28 begin 
2% aux := fator - 
2 if aux = 0,8 Hhen 
238 begin 
status := status or Wí ; 
2 aux := quase zero 


E end; 


ae tmp-valor := tupvalor / aux 

243 end; 

2 

us pont.Istatual 2= pont.. st atual” «proximo ; 
24 multiplicacao := pont 1st atual" classe = vezes 





au until not ( pont Ist.; Sal! «Elasse in U vezes,divisao 1); 
249  ault = tapvalor 





E end; 

a begin 

293  tupvalor z 

254 sinal = +; 

2 repeat 

E tmpovalor := tmpovalor + sinalzault ; 
pu if pont st atual*.classe = sais then 
2? sinal 2= 4 

286 else 

ai sinal 2= 

au 


283 until not ( pont.Ist.atualº.classe in U mais menos 1) ; 





as ) expressao 3 
end; 

E cs) 

e 

269 begin 

20 status z=0; 

a pont.lst.: atual := cabeca Ist ; 4 


23 interpreta := expressao 
a end; 


m 


ap valor 


4rquivo : glbldef.pas pag. 3 É 


onst 
f tanidntf =8; 








5 

6 tipo.cadeia ring 168 1; 

7 tipotoken = ( mais, nenos,vezes,divisao,abr.prts,fch.prts,virgula, 
8 cte,idntt Feridntt cte, idntfo A idntf-2, fin Inh,erro ); 
9 tipopont.Ist.token = “tipo. Isttoken ; 

10 tipe.Ist.token = record 

1 proximo : tipo.pont. Ist.token ; 

12 case classe : tipo.token of 

9 cte :( ctevalor : real); 

14 idntf.fc cl idntf-fc.cod é byte ) ; 

o] idntf-cte =( idntf.cte.valor : real ); 

16 erro : (n.erro : byte); 

17 end; 

18 

19 

Eu) 


var 
a cabeca. Ist : tipo.pont.Ist.token ; 


FE] 

24 procedure início; 

5 begin 

26 cabeca lst :=nil 


end; 
E function pot( a,b : real ) : real ; 
EE Cben(a)) 
pot 2= exp( baln( à 
33 end; 
u 
5 
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UTILIZANDO O DATA CORDER 


A grande maioria dos usuários do MSX ainda trabalha com 
um gravador cassete, o Data Corder, como forma de ar- 
mazenamento de dados, devido ao baixo custo que o mesmo 
apresenta. 

Todos nós sabemos que existem meios melhores, mais 
confiáveise, principalmente, mais rápidos de se gravar e recuperar 
dados, mas a intenção deste artigo é apresentar informações que 
poderão aumentar o desempenho deste periférico. 

Pra gravarmos e lermos dados do cassete, o MSX possui os 
seguintes comandos: 

CLOAD - Lê um programa em BASIC 

CSAVE - Grava um programa em BASIC 

MERGE - Junta o programa BASIC presente na memória 
com um programa lido do cassete gravado em ASCII 

SAVE - Grava um programa no formato ASCII 

LOAD - Lê um programa gravado no formato ASCII 

BLOAD - Lê um programa em Assembler 

BSAVE - Grava um programa em Assembler 

Para verificarmos um programa gravado em BASIC temos 
o comando CLOAD? 

Para acionarmos o motor do cassete, ou a sua parada, 
usamos o comando MOTOR. 


GRAVANDO OS DADOS 

Para gravar um programa em BASIC na fita cassete, 
podemos utilizar CSAVE ou SAVE. 

Exemplo: 

CSAVE “nomearq” ou SAVE “CAS:nomearg” 

A gravação em formato ASCII é mais demorada mas 
apresenta a vantagem que o programa poderá vir a ser adicionado 
a um outro, ou seja, à medida que você vai desenvolvendo o seu 
programa, vai efetuando a sua gravação em formato ASCII e, ao 
final, efetua um MERGE de todos os blocos gravados, obtendo, 
assim, um único programa. 

Ao utilizarmos o comando MERGE devemos tomar o 
cuidado para que as linhas do programa que vai ser lido não sejam 
as mesmas do programa que já se encontra na memória. Caso isto 
venha ocorrer, você perderá linhas de programação do programa 
que já se encontra na memória do micro. 

Quando efetuamos a gravação de um programa podemos 
especificar, também, a velocidade de gravação, ou seja a taxa de 
transmissão de dados para o cassete, que poderá ser de 1200 ou 
2400 bauds. Ao ligarmos o MSX, o mesmo já se encontra pro- 
gramado para assumir uma taxa de transferência de 1200 bauds, 
que é a velocidade recomendada pelos fabricantes, pois apresenta 
um grau de confiabilidade maior, tendo em vista que os dados 
transmitidos serão mais distribuídos ao longo da fita cassete. 
Quanto maior for a velocidade de transferência, menor será o 
espaço utilizado ao longo da fita. 

Assim, para gravarmos um programa BASIC com uma taxa 
de 2400 bauds, utilizaríamos o comando CSAVE do seguinte 
modo: 

CSAVE"nomearg”, 2 onde *,2º específica uma taxa de 
transferência de 2400 bauds. 

Da mesma forma podemos operar com o comando 
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SAVE"CAS:nomearq” para alterarmos a taxa de transmissão. 
Exemplo: 

SAVE"CAS:nomearq”,2 

Ao utilizarmos os comandos SAVE e LOAD, para a 
gravação de arquivos no formato ASCII, devemos indicar qual o 
dispositivo de saída/entrada, tendo em vista que os mesmos são 
utilizados para a leitura e gravação de dados em disco. 


LENDO DADOS 

A leitura de dados do cassete pode ser feita com um dos 
comandos abaixo: 

CLOAD - Lê o primeiro arquivo em BASIC encontrado 

CLOAD “nomearq” - Lê o arquivo especificado 

LOAD”CAS:” - Lê o primeiro arquivo em BASIC encon- 
trado 

LOAD"CAS:” ,R- Lêo primeiro arquivo em Basic encon- 
trado e roda-o automaticamente após o carregamento 

LOAD”CAS:nomearg” - Lê o arquivo especificado 

LOAD”CAS:nomearg”,R - Lê o arquivo especificado e 
roda-o ao final do carregamento. 

RUN"CAS:” - Lê o primeiro arquivo encontrado e roda-o 
automaticamente 

RUN"CAS:nomearg” - Lê o arquivo especificado e roda- 
o automaticamente 

Como você já deve ter notado, para ler um programa com 
o comando CLOAD, o mesmo deverá ter sido gravado com 
CSAVE. Para ler um programa com LOAD, ou com RUN, o 
mesmo deverá ter sido gravado com SAVE. 

O comando RUN"CAS:” é muito utilizado para a leitura de 
jogos que possuem mais de um bloco e que têm um pequeno 
programa em BASIC cuja função é efetuar o carregamento dos 
demais, evitando, assim, que se tenha que dar vários comandos de 
leitura. A função do comando RUN"CAS:”, que é exatamente a 
mesma do LOAD”CAS:”,R, tem a vantagem de não ser necessário 
dar o comando RUN após o carregamento, pois o programa será 
executado automaticamente. 

Na leitura você não precisa se preocupar com a taxa de 
transmissão, pois isto é feito automaticamente pelo computador 


JUNTANDO PROGRAMAS 

Juntar dois programas pode vir a ser muito útil e poupar 
algum tempo de digitação de rotinas que já foram desenvolvidas e 
que se encontram armazenadas. Para tal existe o comando 
MERGE, que permite que um programa, gravado em formato 
ASCII, possa ser lido e intercalado com o progRama que já se 
encontra na memória do micro. 

A sintaxe do comando MERGE é a seguinte: 
MERGE”CAS:nomearg” 


PROGRAMAS EM LINGUAGEM ASSEMBLER 

Para gravarmos um programa em ASSEMBLER usamos 
os comandos BSAVE e BLOAD. A gravação de programas em 
Assembler exige uma série de conhecimentos desta linguagem, 
sendo assunto de artigos que serão publicados nos próximos 
números de CPU. 


mi TT TT TT a ul 








I CONCURSO NACIONAL DE 
SOFTWARE PARA MSX 


A NEWSOFT INFORMATICA LTDA. lança, para 
todo o país, o I Concurso Nacional de Software para MSX, com o 
objetivo de abrir espaço para a divulgação de novos talentos 
brasileiros. 

Poderão participar do concurso programadores de 
qualquer idade, profissionais ou não da área de informática de todo 
o Brasil, sendo vedada a participação no concurso de funcionários, 
ou parentes, da empresa patrocinadora e/ou realizadora, bem como 
os membros da “Comissão Julgadora”. 

Os interessados poderão participar com um ou mais 
programas, programados em Basic, Linguagem de Máquina, ou 
qualquer outra, que versem sobre qualquer tema (jogos, aplicati- 
vos, utilitários, etc.), desde que sejam inéditos e de autoria do 
participante. 

Os programas deverão ser remetidos em disco, ou fita, 
atéo dia 31.12.88, data do encerramento das inscrições, acompan- 
hados de uma declaração de autoria, contendo os dados pessoais, 
como nome, endereço e telefone para contato, do autor. 

Os trabalhos de seleção e classificação serão realizados 





| CONCURSO NACIONAL DE SOFTWARE 
PARA MSX 


por uma “Comissão Julgadora”, designada pela empresa reali- 
zadora, sendo as suas decisões irrevogáveis e iretratáveis. Como 
critério de avaliação para apuração e classificação serão observa- 
dos os seguintes ítens: 

a-criatividad. 
b- originalidade; 

c- adequação do software ao mercado de informática. 

Todos os programas classificados, ou não, passarão a 
pertencer à Empresa realizadora, que se reserva ao direito de fazer 
o uso que lhe convier, podendo, ainda, utilizar o nome dos 
comtemplados na divulgação do concurso, sem qualquer ônus para 
a mesma. 

Os prêmios são: 

1 lugar - 1 drive 3 1/2 polegadas 
2 lugar - 1 microcomputador padrão MSX 
3 lugar - 1 impressora 

O resultado será divulgado através das revistas espe- 
cializadas da área, contendo a relação dos ganhadores. 

Os prêmios serão entregues pelo cartão nacional, 




















REGULAMENTO 














A NEWSOFT INFORMÁTICA LIDA. lança em nível nacional o | CONCURSO NACIONAL DE SOFF- 
WARE PARA MSX 


OBJETIVO DO CONCURSO: Abrir espaço para o divulgação de novos talentos brasileiros 
QUEM PODE PARTICIPAR: Podem particicar programadores de qualquer idade, profisso 
nais ou não da área de informática de todo o Bras? 
QUEM NÃO PODE PARTICIPAR: Não poderão participar oo concurso. funcionários ou po 
rentes da empresa palrocinagora elou realizadora, bem como os membros da "Comi 
são Julgadora 
COMO PARTICIPAR: Os inleressados poderão participar com um ou mais programas, pro 
gramados em Basic. Linguagem de Máquna ou qualquer outra. que versem sobre qual 
quer fema [ogos. aplicatvos. utiitários. etc). desde que sejam inédios e de autoria co 
participante. Os mesmos deverão ser remetidos em disco ou fita. até o dia 30.42.88, dota 
Ge encerramento das inserções. acompanhados ae uma Declaração de Autona” con 
endo seus dados pessoais (nome. endereço e telefone para contato) 
DA SELEÇÃO E CLASSIFI às trabalhos de seleção e classificação serão realizados 
por uma""Comissão Julgadora” designada pela empresa realizadora, cuja decisão é ir 
evogável e rretratável. Como crilério de ovaliação para apuração e classiicação. se 
ão observados 05 seguintes ler: a) criatividade, b) originalidade; c) adequação do 
software ao mercado de informática. 
Todos os programas classificados ou não. passarão a pertencer à empresa realizadora. 
que se reserva o direiio de fazer o uso que Ine convier, podendo ainda utilizar o nome 
des conemplades na divulgação do concurso sem quaiauer ônus para a mesma. 
DA PREMIAÇÃO: 1º lugar ive 3 12 polegadas 

2º lugar — uma impressora 
















publicado este reguiamenta, no edição de 
ganhadores é 
DA ENTREGA DOS PRÊMIOS: Os pré 





serão entegues através do CARTÃO NACION) 


PARTICIPE! 











APOIO: [4 Cartão Nacional 


O Cartão que está a seu lado 











FICHA DE INSCRIÇÃO 

































Cidade: 
cer. Tel 
Titulo do Programa: 


DECLARAÇÃO DE AUTORIA 


Declaro que 2 brogroma Que estou enviando para participar 
do | CONCURSO NACIONAL DE SOFTWARE PARA MSX. é inédito 
e de minha autoria 









































































Assinatura 


Remeta para NEWSOFT INFORMATICA LIDA, 
— Rua Senador Dantas 147. Sala 736 — Rio 
de Janeiro — RJ — CEP 20034 












FAÇA SUA 
INSCRIÇÃO) 
HOJE MESMO! 
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MSX-PC-MAINFRAME 


Quando há mais de três anos, ao mesmo tempo em 
que o padrão MSX era introduzido no Brasil, resolvemos criar a 
MSX Informática Ltda., especializada unicamente em MSX. 


Muitos nos chamaram de loucos, pois achavam que 
o MSX não passava de um vídeo game de luxo. 


A ausência de programas mais sérios, bem como a 
falta dos periféricos prometidos pelos fabricantes, faziam com que 
houvesse uma certa decepção quanto à consolidação do MSX no 
nosso país. 

Hoje, passados estes anos iniciais, podemos com- 
provar que o nosso pioneirismos estava correto. Com mais de 2000 
programas disponíveis nas áreas de lazer, profissional, educa- 
cional, aceitando diversas linguagens, como Cobol, Turbo Pascal, 
Forth, Fortran, Ada, Lisp, C, Prolog, etc., além de possuir revistas 
especializadas, como esta, em tão pouco tempo o MX se tornou o 
equipamento de 8 bits mais vendido no país. 


A conversão de programas famosos, como o 
dBASE II, Supercalc e Wordstar, com a grande vantagem de 
possibilitar o intercâmbio de arquivos com micros de 16 bits do 
padrão IBM PC, consolidaram ainda mais a posição do MSX no 
Brasil. 


Acadadia que passa é crescente o número de empre- 
sasque, sob diversas formas, se utiliza dos MSX paratransferência 
de dados com micros de 16 bits e mainframes. 


O serviço de Videotexto possuí cerca de 10.000 
micros para utilização como terminal, possibilitando o acesso às 
suas informações a uma infinidade de profissionais e empresas, 
que, além disso, o utilizam para os serviços de correspondência, 
finanças e controle nos seus próprios negócios. 


Para as pessoas que possuem um MSX próprio, o 
acesso ao Videotexto, Cirandão e outras bases de dados, pode ser 
feita através de um modem, com um bom programa de 
comunicação, como o VTXMSX, por exemplo. 


Nestes serviços podem ser encontradas 
informações para o uso diário, troca de mensagens e intercâmbio 
de programas. Assim, uma pessoa de São Paulo pode se conectar 
a outra do Rio de Janeiro, Brasília ou qualquer outra cidade do 
mundo. 


Existem, ainda, outras formas de conexão para a 
troca de arquivos e programas com outros computadores. São as 
redes e os emuladores de terminal. No caso das redes, a Targus 


28 CPU 


Victor Grytz 
MSX Informática 


permite a ligação de até 16 micros MSX em rede ligados a um IBM 
compatível, e os emuladores de terminal da DDX e da Cibertron 
permitem que até 25 MSX possam compartilhar os recursos de 
hardware software do PC ou mainframe. 


A REDE TARGUS 


A Rede Targus possui um multiplexador de canais 
projetado para gerenciar 16 portas seriais assíncronas, atuando 
como gerenciador da rede econtrolando todo e qualquer acesso aos 
arquivos de dados. 


Seu sistema básico de transmissão e recepção é feito 
no formato “first in - first out”, ou seja, O primeiro terminal que 
solicitar será o primeiro a receber prioridade de resposta, e assim 
sucessivamente. 


O software, desenvolvido em Assembler, é capaz 
de gerenciar as solicitações de cada um dos 16 terminais, sem que 
haja degradação no tempo de processamento.Como o MSX não 
possui saída serial, foi desenvolvida, também, uma interface 
serial, que possui em sua estrutura interna uma eprom contendo 
rotinas de transmissão e recepção de dados necessárias para a 
comunicação dos MSX com o multiplexador e com o PC. 


Na rede, as tarefas de atualização de arquivos, troca 
de informações, gravação de programas, etc. são processadas “on- 
line” em ambiente simulado de multiusuário. O sistema é exirema- 
mente fácil de ser operado, possibilitando que todos terminais 
solicitem a manipulação do mesmo programa, que cada terminal 
manipule um programa diferente e que o mesmo arquivo de dados 
possa ser manipulado por vários terminais e vários programas Si - 
multaneamente 


Os terminais da Rede Targus podem estar em 
distâncias superiores a 500 metros, sendo interligados por uma 
rede de cabos coaxiais. O multiplexador, ou MUX, custa cerca de 
135 OTN's e cada interface serial custa, aproximadamente, 25 
OTN's. Acompanha multiplexador dois softwares gerenciadores 
da rede, um em Cobol e outro em dBASE III. 


EEE 





OS CARTUCHOS EMULADORES DDX E CIBERTRON 


Os cartuchos emuladores de terminal DDX e Ci- 
bertron possuem um software residente que posibilita aos micros 
da linha MSX a emulação de terminais IBM PC (XT, AT ou 386), 
além da emulação de terminais mainframe que possuam conversor 
de protocolo. 


O cartucho da Cibertron , por exemplo, possui uma 
série de características, como emulação de terminal do tipo VT52, 
saída ara impressora local, hardcopy de tela, velocidade de até 
19200 bps, caracteres gráficos do IBM disponíveis no MSX, para 
permitir que programas como o dBASE III, Lotus 123 e muitos 
outros possam ser utilizados no terminal MSX. 


Estes cartuchos funcionam para distâncias mais 
curtas, até SO metros, e o seu custo é de cerca de 40 OTN's cadaum, 
mas não devemos nos esquecer que, nestes casos, há necesidade de 
um software do tipo Multilink, Pick, PCMOS, etc, na faixa de 150 
OTN's. 


A grande vantagem das redes e emuladores de 
terminais MSX é que, além de terem um custo inferior a qualquer 
terminal dedicado existente no mercado, ainda possibilitam a 
utilização do micro para processamentos locais, possibilitando 
rapidaemnte o retorno do investimento realizado. Deste modo, 
com a entrada do MSX no restrito mercado das redes e terminais, 
fica consolidada a sua posição de lider no mercado de 8 bits em tão 
pouco tempo, mais uma vez comprovando a nosssa crença no 
potencial deste equipamento. 
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CÁLCULO DE CIRCUITOS 
RESSONANTES L-C 


Um grande problema para quem lida com rádio 
frequência é o correto dimensionamento dos circuitos ressonantes 
do tipo indutor capacitor, pois este é altamente crítico. 

O programa apresentado dará uma imensa ajuda a rádio 
amadores, estudantes de engenharia eletrônica e afins, pois faz 
todos os cálculos relativos ao assunto com grande rapidez e con- 
fiabilidade. 

Assim que o programa começar, aparecerá um menu de 
opções. Faça a sua escolha, pressionando o número em questão e, 
logo após, pressione [RETURN]. 

A frequência de ressonância é determinada quando as 
reatâncias capacitiva e indutiva dos componentes do circuito 
ressonante se igualam. 

Estas reatâncias são dadas por: 


H(2xmxFxC) 
2xnxFxL 


Xc 
x1 


Xc e XI indicam as reatâncias capacitiva e indutiva, 
respectivamente (em ohms). F indica a frequência em Hertz, C 
indica a capacitância em Farads, L a indutância em Henrys ex vale 
3.141592654, aproximadamente. 

Igualando-se as duas equações, obtemos a fórmula 
geral para ressonância: 


F=1/(2xxxSQRTLxC) 


O programa apresentado usa esta fórmula. As unidades 
em questão são as mesmas. 

No caso de operarmos com um capacitor variável, 
podemos obter a faixa de frequência coberta, pelo circuito res- 
sonante, e vice-versa. Isto é particularmente útil na construção de 





MULTIMODEM 


O único que opera em 
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rádio transmissores ou receptores de FM, por exemplo. 

Já o cálculo de indutores (ou bobinas) sempre foi muito 
problemático, mas o programa se sai muito bem em relação a isto. 

Para isso, utilizam-se duas fórmulas específicas, uma 
para cada relação comprimento-diâmetro da bobina. Lembre-se 
que um pouco de bom senso é necessário quanto a isso. Não vá 
querer calcular um indutor com diâmetro de 1 mm e comprimento 
dem! 

As fórmulas utilizadas pelo programa são as seguintes 
(c é o comprimento e 1 o diâmetro): 


Se: 0.3<c/d<10 
N=sgrt( (143xL x c0.57)/ (dA1.57)) 


Se: 1.2<c/d<8.0: 
N= sqr( (137 xL x cA0.863) /(d"1.863) ) 


N indica o número de espiras, C o comprimento da 
bobina e D o diâmetro. 

Se a relação c/d estiver fora dos intervalos acima 
mencionados, o resultado não será confiável. 

Os resultados obtidos são extremamente confiáveis, 
pois vários indutores foram confeccionados segundo este método 
e conferidos em uma ponte de indutâncias da General Radio, de 
aproximadamente US$ 6,000.00 e o erro foi menor que 5% ! 

Se você desejar saber o fator de qualidade do indutor, 
basta usar a seguinte fórmula: 

Q=(2xxxFxL)/R, onde R é a resistência ohmica 
do fio. Esta opção não foi incluida no programa. Fica a seu critério 
incluí-la ou não, pois o Q das bobinas calculadas geralmente é 
satisfatório. 

As bobinas são de seção circular e núcleo de ar. 
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Este programa calcula os valores de 
componentes para circuitos ressonan 
tes L-C, bem como as faixas de ope- 
ração dos mesmos. Calcula também as 
dimensões de indutores com seção 
circular e núcleo de ar. 


[área de definição de variáveis) 
VAR 


CIC2LFLF2:REAL; 
A INTEGER; 
e CHAR; 


(definição da função potenciação) 


FUNCTION POT(B,E:REAL):REAL ; 
BEGIN 
POT := EXP(E*LN(B)) ; 
END; 


[cálculo da frequência de ressonância ) 


[PROCEDURE FREQUENCIA; 
BEGIN 
WRITELN('4 CALCULO DA RESSONANCIA |); 
WRITELN; 
WRITE('L (H) :); READLN(L); 
WRITEÇC (F) : '); READLN(CI); 
WRITELN; 
Fl:=1(2*PI*SQRT(L*CI); 
WRITELN('RESSONANCIA EM : * FI," HZ"); 
END; 


(cálculo da indutância) 


[PROCEDURE INDUTANCIA; 

BEGIN 
WRITELN('4 CALCULO DA INDUTANCIA &º'); 
WRITELN; 
WRITECF (HZ) : '); READLNÇFI); 
WRITE(C (F) :); READLN(CI); 
WRITELN; 
L:=SQR(I/(2*PI*FL*SQRT(CI)); 
WRITELNCINDUTANCIA : “L, Hº); 

END; 


[cálculo da capacitância) 
pa 


PROCEDURE CAPACITANCIA; 

BEGIN 
WRITELN(H CALCULO DA CAPACITANCIA &'); 
WRITELN; 
WRITEÇF (HZ): 9; READLN(FI); 
WRITE(L (H) : ); READLN(L); 
CI:=SQR(I/2*PI*FL*SQRT(L)); 
WRITELN; 
WRITELN(CAPACITANCIA : 

END; 





(cálculo da faixa de frequência em 
função de um capacitor variável) 


PROGRAM LC 30 


PROCEDURE F FREQ; 
BEGIN 
WRITELN('4 CALCULO DA FAIXA DE FREQUEN- 
CIAR), 
WRITELN,; 
WRITE('CAPACITANCIA MINIMA (F) : '); 
READLN(CI)Y; 
WRITE('CAPACITANCIA MAXIMA (E) : *); 
READLN(CZ); 
WRITE(INDUTANCIA (H) : x READLN(L); 
Fl:=1/(2ºPI*SQRT(L*CI)); 
F2:=1/(2ºPI*SQRT(L*C2)); 
WRITEI 
WRITELN(FREQ. MINIMA : 'F2, HZ'); 
WRITELNÇFREQ. MAXIMA : “FI, HZ"); 
END; 


[cálculo da faixa de capacitância em 
função de uma frequência variável) 


PROCEDURE F CAP; 
BEGIN 
WRITELNÇ4 CALCULO DA FAIXA DE CAPACI- 
TANCIA £ 
WRITELN:; 
WRITE( FREQUENCIA MINIMA (HZ) : *; 
READLN(FI); 
WRITE(FREQUENCIA MAXIMA (HZ) : *); 
READLN(?);, 
WRITE(INDUTANCIA (H) : *); READLN(L); 
CI:=SQR(LM2ºPI*FI*SQRTAL)); 
C2:=SQR(IA2*PI*F2*SQRT(L)); 
WRITELN; 
WRITELN('CAPACITANCIA MIN :*.C2,' Fº); 
WRITELNC'CAPACITANCIA MAX : '.C1,' E” 
END; 


[cálculo da bobina) 


PROCEDURE BOBINA; 
BEGIN 
WRITELN('& CALCULO DA BOBINA &"); 
WRITELN; 
WRITELN('& SEÇÃO CIRCULAR / NÚCLEO DE 
ARE, 
WRITELN; 
=; READIN(L); 
: READLNCCI); 
WRITE('COMPRIMENTO (cm) : ');:READLN(C2); 


[escolha da fórmula em função 
do diâmetro e do comprimento) 


FI:=CHCI; 
TF ((F1>0.29) AND (Fl<101)) THEN 
F2:= SQRT((143*L*POT(C2,0.5T)POT(CI.1.57) 
ELSE 
TE ((Fi>1.19) AND (FI <8.01) ) THEN 
F2 = SQRT((137*L*POT(C2,0.863)/ 
POT(C1,1.863)) 
ELSE 
BEGIN 
WRITELN; 
WRITELN('+** RESULTADO NAO CONFIA- 
VEL tee"), 
WRITELN; 
WRITELN(TENTE NOVAMENTE"); 
DELAY(1600); 
CLRSCR; 


BOBINA; 
END; 
GOTOXY(1,10); 
WRITE('A BOBINA DEVERÁ TER ',F2:4:1," 
ESPIRAS.'); 
END; 


[apresentação e menu principal) 


PROCEDURE MENU; 
BEGIN 
CLRSCR; 
GOTOXY(9,1); WRITE(S axo axo mo); 
GOTOXY(9.2); WRITEÇO 0 000); 
GOTOXY(9,3) WRITE('O a co cam a 0); 
GOTOXY(9.4); WRITE(O a 
GOTOXY(9,5); 
GOTOXY(8,7); WRITE((C) 1988 by A.F. 
Shalders"); 
GOTOXY(1,10); WRITE(' 
GOTOXY(8,14); WRITE([1] - FREQUENCIA"); 
GOTOXY(8,15); WRITE('I2) - INDUTANCIA”); 
GOTOXY(8,16); WRITE([3] - CAPACITANCIA'); 
GOTOXY(8,17); WRITE('[4] - FAIXA DE 
FREQUENCIA"; 
GOTOXY(8,18); WRITE('[5) - FAIXA DE 
CAPACITANCIA": 
GOTOXY(8,19); WRITE('[6] - CÁLCULO DA 
BOBINA”; 
GOTOXY (8.24); WRITE(OPÇÃO : 9); 
READXA); 
JF ((A<1) OR (A>6) ) THEN MENU ; 
CLRSCR; 
CASE A OF 1: FREQUENCIA; 
2: INDUTANCIA; 
3: CAPACITANCIA; 
4:F FREQ; 
S:F CAP; 
6: BOBINA; 


inicialização do programa) 


PROCEDURE INIT; 


F2=0, 
GOTOXY(1,24); 
WRITECDESEJA CONTINUAR (S/N) '); 
READ(KBD,C); 
C=UPCASE(C); 
IF (C="S") THEN INIT; 
END; 


(corpo do programa principal) 


BEGIN 


INIT; 
CLRSCR; 


END. 





CRU II. 











dBASE II PLUS MSX 


dBEST 


Não é preciso pensar muito para se perceber que quase 
todas as profissões ou empresas requerem algum sistema bem or- 
ganizado para o armazenamento e recuperação de informações. 

Mesmo a microempresa pode se beneficiar de um eficiente 
Sistema Gerenciador de Dados. 

O gerenciamento de dados é, sem dúvida, um dos mais 
úteis empregos que se pode dar ao microcomputador. 

O banco de dados é, simplesmente, um conjunto de dados 
organizados de forma a serem usados com um determinado ob- 
jetivo. Um exemplo comum de banco de dados é a lista telefônica, 
que vem a ser um conjunto de informações organizadas de modo 
a possibilitar a fácil localização de números telefônicos. 

Este banco de dados contém nomes, endereços e telefones 
de indivíduos, empresas ou instituições. Os endereços e telefones 
têm pequeno valor por si mesmos, a menos que estejam RELA- 
CIONADOS a um nome. 

Quando paramos para pensar a respeito, ficamos realmente 
surpresos com o número de banco de dados que nos são familiares. 

Alguns dos mais comuns são: um dicionário, um livro de 
receitas, um catálogo de uma loja, um relatório de estoques, de 
contas a receber, etc. 

Empresas e outras organizações têm seus próprios sistemas 
de banco de dados: arquivos de clientes, arquivos com 
informações pessoais, inventários, registros de vendas, tabelas, 
etc. 

As escolas têm currículos dos alunos, listas de chamadas, 
arquivos de funcionários, relatórios de frequência, etc. 

Todos esses bancos de dados possibilitam o bom fun- 
cionamento de uma empresa ou organização. 

Lidar com grandes quantidades de dados é uma necessi- 
dade constante em nossa sociedade moderna. 

Poder acessar estes dados rapidamente, e deles extrair as 
informações desejadas, é bastante importante. Contudo, o mito que 
se criou em torno da figura do computador pode levar leigos a 
pensar que rapidez é uma característica inerente ao próprio com- 
putador. 

Isto em parte é verdade. No entanto, se não dispusermos de 
um sistema eficiente e bem estruturado, no sentido de melhor 
manipular esta massa de dados, nossa rapidez ficará comprome- 
tida. 

Eis aí um dos motivos pelos quais o dBase II surge como 
uma arma poderosíssima no tratamento de dados. 

Antes de entrar propriamente no dBase II, vejamos um 
pouco de sua história. 

A história do dBase II leva-nos até meados da década de 60 
ea um sistema gerenciador de informações chamado RETRIEVE, 
que foi comercializado pela Tymshare Corporation. 

O Jet Propulsion Laboratory, em Pasadena, Califórnia, 
usouo RETRIEVE até o final da década de 60, quando adquiriu os 
computadores UNIVAC 1108. 


34 CPU 


DINO H. POLETTO 
DIRETOR DA PRINCESSWARE 


Long, um novo programador no JPL, recebeu a 
incumbência de escrever um programa que pudesse executar as 
mesmas funções que o RETRIEVE. O novo sistema gerenciador 
de arquivos, que Long desenvolveu, foi chamado de JPLDIS. Esse 
sistema continuou a evoluir nos vários anos seguintes e ainda é 
usado em muitos dos computadores do tipo UNIVAC 1100. 

No final da década de 70, Wayne Ratliff, que trabalhava no 
JPL, sob contrato, com Martin Marietta, começou a se interessar 
por microcomputadores. Ratliff era um dos amigos de Jeb e 
começou a desenvolver um sistema que, para o usuário, era muito 
semelhante ao JPLDIS. 

Conta história que Wayne desenvolveu a versão inicial de 
seu sistema de banco de dados com o objetivo de ganhar apostas 
de futebol! Wayne comercializou essa versão JPLDIS sob o nome 
de VULCAN. 

Embora tenha se desenvolvido rapidamente, ao ponto de 
adquirir seu próprio caráter e personalidade, o VULCAN não 
conseguiu muitas vendas. Em 1980 possuía somente sessenta 
clientes. 

Então, um empresário, George Tate, entrou em cena, após 
ver um anúncio do VULCAN em uma publicação para computa- 
dores. Logo lhe deu um novo nome - dBASE II - e uma nova 
companhia, a Ashton-Tate, que foi formada para comercializá-lo. 

Desde o seu lançamento, diversas versões se sucederam, 
aprimorando o produto, implementado novas funções (2.3, A, B, 
C,D,2.4,241€e2.42). 

No Brasil, chegou oficialmente através da Datalógica, em 
1982, sendo utilizado em computadores com processadores 8080, 
8085 e Z-80, sob o sistema operacional CP/M. 

No final de 1985, foi lançada uma nova versão, a 3.0, 
totalmente produzida no Brasil, o dBase II Plus. 

Com a chegada do dBase III e II Plus, para micros de 16 
bits, e o paulatino desuso de algumas linhas de micros de 8 bits, o 
dBase II estava em vias de esquecimento... 

Mas, de repente, uma nova fase para os micros de 8 bits foi 
detectada e a nova arrancada se sucedeu com a chegada do padrão 
MSKX ao Brasil. 

Pensar no uso meramente doméstico para um computador 
é utopia, principalmente no Brasil, onde os custos são elevados. 

Assim, o MSX foi se posicionando e, graças as suas 
qualidades, encontrou um lugar no meio profissional ou, ainda 
como alguns preferem, profissional leve. 

Desta forma, surge, novamente, vitorioso, o dBASE II, 
agora pelas mãos da Princessware e na sua mais nova versão, 
dirigida a este padrão: dBASE II Plus MSX - v 1.0. 

Denomina-se 1.0, pois é a primeira versão mundial do 
dBase Il para MSX. Ela foi implementada a partir da versão 3.0 dos 
Apple's, PC's e TRS's, mas funcionando sob o sistema opera- 
cional MSX-DOS e, ainda, permitindo que se escreva em bom 
português, com todos os acentos. 














Es 


O QUE É DBASE II? 

Chamar o dBASE II de uma linguagem de programação e 
nada mais, é ter uma visão restrita, injusta, tanto para o dBASE 
como para seu novo usuário. 

Na verdade, ele também é um instrumento para gerenciar 
banco de dados. Consistindo de uma bem elaborada linguagem de 
programação interpretada, dirigida especificamente para trabalhar 
com banco de dados com uma série de facilidades para se criar, 
manipular ou extrair informações concernentes a este banco de 
dados. Tudo isto cuidadosamente arrumado em um único pacote 
Perfeitamente acessível, tanto para programadores como para os 
menos experientes em computação. 

Há três diferentes maneiras de se encontrar e retirar 
informações de uma lista de dados. A primeira delas seria ir lendo 
os dados de uma forma sequencial, até encontrarmos o que 
queríamos. 

Fica claro que, quanto maior for a lista de itens, mais 
demorada ficará esta busca, sendo, portanto, pouco prática. Outro 
Jeito seria ordenar estes itens antes de iniciar a procura. A desvan- 
tagem está no fato de, toda a vez que acrescentarmos novos itens, 
a ordenação terá de ser refeita. 

Muito mais eficiente é a utilização de arquivos indexados. 
Neste caso, além do banco de dados original, guardamos um outro 
com indicadores (pointers) que apontam para os dados. 

Quando algum item éalterado, o arquivo com os “pointers” 
é corrigido , de modo que temos um ordenação efetiva sem, 
contudo, ter havido qualquer movimento no banco de dados 
original. 

A busca e obtenção de informações poderá, então, ser feita 
por diversas técnicas, algumas até bastante complexas e que, 
felizmente, não precisam ser conhecidas pelo usuário do dBASE 
II, pois já estão embutidas no pacote, podendo ser utilizadas 
através de comandos e instruções facilmente assimiláveis. 

Vale ainda ressaltar que no dBASE II estes índices não 
estão organizados de uma forma hierárquica, mas, como temos um 
banco de dados do tipo relacional, haverá necessidade de um único 
indicador para cada ítem, já que todas as informações relacionadas 
àquele ítem estão estreitamente ligadas num só registro. Inclusive, 
é para o número deste registro, que é único para cada item no 
dBASE II, que apontam os indicadores do arquivo de índices. 

O usuário pode não apenas gerenciar um banco de dados 
com o dBASE II mas, se ele desejar, pode criar outros também. 
Para isto basta recorrer ao comando CREATE e o computador 
inicia com o usuário um diálogo a respeito de como ele deseja a 
estrutura de armazenamento e o tipo dos dados a serem guardados. 

Há apenas três tipos de dados, a saber: caracter, numérico 
e lógico. Num tempo bastante curto você verá que pode aprender 
a descrever os campos de um novo banco de dados. 

Aprendendo a utilizar as expressões adequadas, o novo 
usuário do dBASE II perceberá, facilmente, que ele pode acessar 
informações bastante específicas, sem necessidade de ter que 
descobrí-las em meio a um amontoado de dados. 

Assim, se, por exemplo, um banco de dados contiver os 
resultados das vendas anuais de um companhia, você poderá 
requerer o total de vendas de um único vendedor, num período de 
tempo específico, em uma determinada região. Mais do que 
conseguir retirar estas informações rapidamente com o dBASEII, 
você perceberá que não há a menor necessidade de conhecer 
programação para obtê-las, bastando para isto digitar uma ou duas 
linhas de comandos fáceis de se aprender. 

Como podemos perceber, o dBASE II vem ao encontro das 
necessidades básicas de qualquer indústria ou organização, que é 
O serviço ou produto por ela gerado e as tarefas envolvidas na 
manipulação dos novos dados que surgem ao longo do ciclo 
operacional. 

Uma vez criada a estrutura do banco de dados, novos 


registros poderão ser acrescentados livremente, fazendo uso das 
incríveis capacidades de edição do dBASE II. 

Tirar relatórios rápidos com o dBASE II é uma tranquili- 
dade. Mais uma vez temos o próprio computador dialogando 
conosco e pedindo todas as informações necesárias para a 
confecção do relatório. É perguntado sobre o cabeçalho, sobre os 
subtotais, os títulos dos campos, etc. No caso do nosso primeiro 
exemplo, poderíamos tirar um relatório em que aparecessem, 
explicitamente , os totais de vendas por vendedor, por região, ou 
ainda pelos dois , conforme nosso interesse. Para isto, basta teclar 
“REPORT” e o mais é se entender com a máquina. 

Copiar arquivos por inteiro ou em parte é outra das facili- 
dades permitidas pelo dBASE II. A maioria dos seus comandos 
permite uma filtragem de dados, de modo a operarem sobre ítens 
que satisfaçam certas características. Há, além disto, o “escope”, 
escopo ou comando, que explicita sobre que registros deve ser 
testada a condição de filtragem. 

Vamos dar um exemplo mais específico. Imagine a lista 
telefônica da cidade de São Paulo sendo um banco de dados. É 
possível copiar para outro banco de dados apenas os asinantes que 
se situam na rua Augusta, cujas iniciais são “RO” e cujos telefones 
terminem em “32”. Através do escopo, poderíamos procurar as 
condições acima em toda a rua Augusta, ou apenas nos primeiros 
registros, ou nos últimos, como quisermos. 

Acho que já dá para avaliar o incrível potencial de nossa lin- 
guagem. 

Até agora, falamos apenas, de características do dBASE II 
completamente independentes de qualquer conhecimento prévio 
de programação. Isto por si só já justificaria seu uso, mas vamos 
destacar outra de suas potencialidades que é a de criar procedimen- 
tos para serem utilizados por terceiros, através de programação. 

Para isto, o dBASE II dispõe de um interpretador próprio 
capaz de entender as construções fundamentais em programação, 
como o comando interativo “do while”, o condicional “if-else” e 
outros mais refinados como o “do-case”, por exemplo. 

Deste modo, o programador pode escrever “menus”, pro- 
cedimentos bastante explicativos para o usuário, ampliando o 
diálogo entre o computador e o homem, insistindo na correção dos 
dados digitados, fazendo observações sobre a manutenção de ar- 
quivos, enfim, tudo que um programador imaginativo pode “bo- 
lar” no sentido de reduzir ainda mais a possibilidade de erros na 
manipulação de dados. 

Deste modo, é possível fazermos programas bastante inte- 
ligentes e eficientes para resolver problemas típicos, como folha 
de pagamento, sistema de contabilidade, controle financeiro, con- 
trole de estoque e outros, exclusivamente em dBASE IL. Se sua 
empresa leva cerca de um mês para resolver estes problemas tão 
simples, é porque você está precisando de um dBASE II para, 
através da entrada de dados em poucas horas, rodar, em alguns 
minutos, os programas que lhe tirarão esta dor de cabeça. 


SOFTWARE ORIGINAL 


O usuário de um produto original, ao comprá-lo, não leva 
apenas um manual e o disco com o seu respectivo número de série. 
Leva, também, um serviço permanente e gratuito de suporte 
técnico e de atualização de versão, ou seja, um serviço profissional 
para profissionais. 

O usuário do dBASE II, tanto da versão descrita neste 
artigo, como de qualquer outra, que não possua o seu número de 
série, deve saber que ela foi originada de um roubo e, como tal, é 
um crime, e quem a possui é um interceptador. Os responsáveis 
poderão ser indiciados criminalmente e responder a processo 
judicial, por utilização indevida do produto, de acordo com a Lei 
7646 de 18/12/87 aprovada pelo Congresso Nacional é regulamen- 
tada sob o número 96036 em 12/05/88. 
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CURSO DE PASCAL -IH 


Nesta segunda lição, iremos estudar as 
áreas de definição de procedures e funções 
ea do programa principal. Serão apresen- 
tadas as primeiras noções sobre loops em 
Pascal, 


OS PROCEDIMENTOS 

São pequenas subrotinas que 
podem ser acessadas através de seu nome, 
usado como uma palavra nova no Pascal. 
Um procedimento ou procedure tem come 
características estruturais a presença de um 
nome identificador , uma eventual área de 
variáveis (variáveis locais) e a área de 
definição do procedimento em si. Este tipo 
de estrutura é equivalente a um bloco do 
tipo GOSUB do BASIC. Abaixo, é mos- 
trado um pequeno exemplo: 


PROCEDURE ZERAR MATRIZ ; 
VAR A: INTEGER ; 


BEGIN 
FOR A := 0 TO 100 DO 
S[AJ:=0; 
END; 


A função deste procedure é fazer 
com que a matriz S , composta de 101 
elementos, seja zerada. Em Pascal é usual 
uma declaração terminar com um ponto e 
vírgula. Toda vez que digitarmos o nome 
do procedure dentro do programa principal, 
a subrotina a ele ligada será executada. 
Note que a subrotina propriamente dita é 
posta entre um BEGIN e um END; . Estes 
são os delimitadores de início e fim de 
bloco de operações em Pascal. 


AS FUNÇÕES 

Podem ser definidas novas 
funções (matemáticas ou não) em: Pascal. 
Seu uso é muito parecido com o de proce- 
dures, porém pode ter apenas uma saída, ao 
passo que os procedures podem ter várias. 
Exemplos: 
FUNCTION TAN(X:REAL):REAL; 

BEGIN 
TAN:=SIN(X)/COS(X); 

END; 

Neste outro exemplo, definimos 
a função tangente, inexistente em Pascal. 
Feita esta definição, podemos usá-la como 
qualquer outra função residente no Pascal. 


OREAL dentrodos parênteses é 
para que o argumento seja tratado como 
real, e o seguinte para que o resultado 
obtido seja real. 

Os procedures e functions são 
uma das principais características de uma 
linguagem estruturada, pois se bem utili- 
zados, evitam o uso desnecessário de 
GOTOSs, o que é apelação em Pascal. 


LOOPS SIMPLES (FOR) 

O exemplo mais simples de loop 
em Pascal é o do tipo FOR. É muito seme 
lhante ao FOR do BASIC, porém aceita 
somente variáveis inteiras no contador. 
Pode ser tanto crescente quanto decres- 
cente. 

Uma característica do FOR é 
que não existe o NEXT, como em BASIC, 
sendo o controle feito através de BEGINS e 
ENDs. Pode parecer complicado, mas na 
verdade é muito simples: 

BASIC 

FOR X=0 TO 255 

PRINT CHRS(X); 

NEXT X 

PASCAL 

FOR X:=0 TO 255 DO 
WRITE(CHR(X)); 


No caso anterior, apenas uma 
ação é executada dentro do loop. 

Caso seja necessária a execução 
de mais de uma ação dentro do loop, estas 
deverão ser postas entre um BEGIN e um 
END; como no caso dos PROCEDURES: 
BASIC 
FOR X=0 TO 100 
PRINT X 
PRINT X42 
PRINT 
NEXTX 
PASCAL 
FOR X:=0 TO 100 DO 

BEGIN 
WRITELN(X); 
WRITELN(SQR(X)): 

END; 


Note que a função SQR(X) é 
equivalente a X/2 do BASIC. A raiz qua- 
drada em Pascal é definida por SQORT(X). 


ANTONIO F. SHALDERS 


Não confunda ! Algo MUITO 
IMPORTANTE em Pascal é em relação 
aos loops alinhados. A sintaxe para tal é 
mostrada no exemplo abaixo: 

BASIC 

FOR X=0 TO 100 
PRINT X 

FOR Y=75 TO 22 STEP -1 
C=C+4X-Y 
D=D+C"2 

NEXT Y 

PRINT Y-D/C 
PRINT 

NEXT X 

PRINT “FIM” 


PASCAL 
FOR X:=0 TO 100 DO 
BEGIN 
WRITELN(X); 
FOR Y:= 75 DOWNTO 22 DO 
BEGIN 
Ci=C+X-Y; 
D:=D+SQR(C); 
END; 
WRITELN(Y-D/C); 
WRITELN; 
END; 
WRITELNCFIM"); 





Creio que, com este exemplo 
final, todas as eventuais dúvidas sobre este 
tipo de loop estejam sanadas. Convém 
lembrar que o ponto e vírgula no final de 
algumas linhas indica o terminador de co- 
mandos. Examine o programa que açom- 
panha esta segunda lição do curso. Nele 
está contida toda esta lição, sendo sua 
análise um ótimo exercício. 

Os comandos de impressão no 
vídeo são WRITE e WRITELN, 
equivalentes ao PRINT, e PRINT, respec- 
tivamente. O GOTOXY(a,b) é análogo ao 
LOCATE a,b do BASIC, e o CLRSCR ao 
CLS. 

Chegamos ao final da segunda 
lição, e, em caso de alguma eventual 
dúvida, não hesitem em escrever-nos. Afi- 
nal, nós estamos aqui para isso! 

Napróxima lição serão apresen- 
tados os loops dos tipos WHILE e RE- 
PEAT, muito poderosos por sinal. 
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program curso 2a ; 


[este programa demontra o uso de loops. 
desenhando uma moldura na tela e es- 
crevendo uma mensagem em seu centro. ) 


[área de definição de variáveis) 


var ab: integer; [define A e B como inteiros) 
cschar; [define C como alfanumérica) 


(área de definição 
de procedimentos) 


Limprime 40 caracteres 
255 sequencialmente ) 
procedure linha cheia; (identificação do procedure) 
iniciatiza o procedure) 
to40do (define o loop) 
imprime C dentro do loop) 
[finaliza o procedure) 


imprime as margens] 


procedure margens ; (identificação do procedure) 
begin inicializa o procedure) 
fora=lto2ldo (define o loop principal) 
begin inicializa o loop principal) 
weite(c); fimprime C) 
forb:=2t039 do (loop secundário para) 
write(*) (imprimir 38 espaços) 
write(c); (imprime C fora do loop secundário) 
[finaliza o loop principal) 
(finaliza o procedure) 


[início do programa principal) 
begin [inicializa o bloco principal) 


ci=chr(255); 
caractere 255) 
clrser; (limpa a tela) 
linha cheia; [chama o procedure) 
margens; 
linha cheia; 
Botoxy(14,10); (põe a cursor em 14,10) 
write(/CURSO DE PASCAL"); — [imprime a mensagem 
em 14,10) 
gotoxy(17,12); 
write('LIÇÃO IP); 
gooxy(1,1); 
delay(6000); 
clrser, 


(define a variável C como o 


[aguarda alguns segundos) 


end (finaliza o bloco principal) 


program equação do segundo grau ; 


begin 
writeln( Raiz 1 = "(b/(2%a))5:5, 
discr):5:5,) 
var writeln('Raiz 2="(-b/(2%4))'5:5,) 
discr:5:5," PJ; 
ado, (coeficientes da equação) writeln 
discr, (discriminante) end; 
raiz Lnaiz 2, (raizes) 
vertice x.vertice y : real ; (coordenadas do vertice da pa- 
rabola) [calculo das coordenadas do venice da parabola) 


(declaração das variáveis) 


procedure vertice; 
[inicialização e entrada de dados) begin 
vertice x :=-b/(2%a) ; 
procedure início: venice. y :=-discri(4*a) ; 
begin writeln('Vertice da parábola:'); 
clrser; writeln('(',vertice 1:5:5,'" ventice y'5:5,/Y); 
writela('Equação do 2º grau"); end; 
writeln(*Curso de Pascal - IT); 
writeln('Revista CPU"); 
writeln(” 
Rotoxy(1,10); 
writeln('Entre com os coeficientes da equação da forma 
AX+BI+C=0"); begin 
writeln; 
write(“A: ? “); readin(a); inicio; 
write('B: discr ;= delta(a,b.e); 
write('C: 7"), readin(o); if discr>0 then raizes. reais 
end; else 
àf discr=0 then raizes reais iguais 
else 
if discr<O then raizes. complexas ; 
writeln; 
function delta(a,b,cireal)-real; writeln('A = “ discr); 
begin writeln; 
delta :=sqr(b)-4ta tc; venice;, 
end; 


(programa principal) 


(catculo do dela) 


end. 
[calculo das raizes reais e distintas) 


procedure raizes reais; 
begin 
raiz 1 := (bsquídisco))M2ta); 
raiz. 2 := (-brsqr(discr) (2a) ; 
writeln('Raiz 1 =“saiz 1:5:5); 
writeln('Raiz 2= “raiz 2:5:5); 
end; 


[calculo das raizes reais e iguais) 
procedure raizes reais iguais; 
begin 
raiz. 1 := (-brsqidiscr)(2ta) 
writeln('Raiz 1 = Raiz 2="saiz 1:5:5); 
end;z 


[calculo das raizes complexas) 


procedure raizes complexas; 
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ASTROLOGIA NO MSX 
LUIS TARCISIO DE CARVALHO JR 
EDITORA ALEPH - 1988 

Como não podia deixar de acontecer,o MSX 
entrou na área mística! De fato, uma das grandes dificuldades dos 
astrólogos sempre foi um exaustivo trabalho de cálculos e consul- 
tasa tabelas de efeméides planetárias para levantamento do Mapa 
Astral. 

Com a incrível capacidade e precisão de 
cálulos do MSX, esta tarefa pode ser relegada ao micro, ficando ao 
astrólogo a tarefa mais nobre da interpretação. Neste lançamento 
da Editora Aleph, o leitor passa a dispor de uma espécie de “kit” 
de Astrologia, dividido da seguinte forma: 

Na parte I é fornecida uma listagem em 
Basic do programa MAPASTRAL, que se encarrega de fazer todos 
os cálculos astronômicos necessários à interpretação. Para os 
leitores “preguiçosos”, a Aleph comercializa uma versão do livro 
associada a um disquete de 5 1/4”, com todos os programas nele 
contidos. 

Ao rodar o programa são solicitadas as 
informaçõe pessoais do “consulente”: nome, data e hora do nasci- 
mento. O programa pergunta se nesta data estava em vigor o 
horário de verão, sendo que no apêndice II do livro está uma tabela 
de todos os horários de verão que já vigoraram no Brasil, com 
espaço para complementações futuras. 

A seguir devem ser colocadas as coordena- 
das geográficas do local do nascimento. No apêndice I são for- 
necidas as das principais cidades brasileiras. Se a sua cidade não 
estiver relacionada, uma boa fonte de consulta é o índice do Atlas 
da Encylopaedia Britannica. 

Após a entrada destes dados (figura 1), o 
micro efetua todos os cálculos e desenha o Mapa Astral na tela. No 
apndice III é fornecido um programa que permite tirar uma cópia 
desta tela (e das seguintes) na impressora, para documentação 
posterior. Ett MAFA ASTRAL EHF 


FIGURAI Mome (máx=1B letras):? 


pata d Sci 
bata de pasciment 


(após 15/18 





Hora de nascimento: 





Horário de Verão (S/N) 
Fuso Horário ? 3 


imento 





Coordenadas do local de na: 







Latitude: Graus 
Hinut 
Longitude: nliris 
ongitude un dao 
38 CPU Lou ds 





FIGURA 3 





Apertando-se a tecla F1, o programa lista a 


posição do Sol, Lua e Planetas e, com F2, a posição das casas 
(figura 2). 
FIGURA 2 
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Na tela seguinte é fornecida a tabela dos 
aspectos planetários (figura 3) e, nas duas telas seguintes (figura 4 
e 5), as posições dos planctas e casas é listada com toda precisão. 
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A seguir vem a parte mais interessante do 
livro. Em função do signo de cada planeta, do ascendente, dascasas 
dos planetas e dos aspectos planetários, o programa lista uma série 
de números,correspondendo cada um a um verbete fornecido na 
parte III do livro (interpretação). Desta maneira, mesmo o leigo em 
astrologia pode fazer uma primeira interpretação do mapa. Obvia- 
mente, ela será superficial, pois é necessário um astrólogo experi- 
ente para solucionar eventuais informações conflitantes entre os 
aspectos (figura 6). 

Trata-se, sem dúvida, de uma obra original e 
inovadora que, além de mostrar uma faceta insuspeitada do MSX, 
permite ampliar seu campo de uso, especialmente entre o público 
feminino que olha o micro com uma certa indiferença, ou até 
hostilidade. 
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Guia do Programador - Volume 1 
Guia Técnico de Referência - Volume 2 
Editora McGraw-Hill 

A McGraw-Hill acaba de fazer um 
lançamento de dois livros que, ao nosso ver, em muito irão ajudar 
os programadores, iniciantes ou não, a usufruir ao máximo dos re- 
cursos dos computadores MSX. 

A obra foi dividida em dois volumes, tendo 
aprimeira recebido o titulo de “Programação Básico e Avançada”, 
com 297 páginas e a segunda, com 346 páginas, recebeu o título de 
“Guia Técnico de Referência”. 

Tendo sido traduzida do livro The Complete 
MSX - Programmers Guide, que vem a ser uma das publicações 
mais conceituadas na Europa sobre o MSX, tendo sido traduzida, 
num trabalho muito bem feito, utilizando uma linguagem bastante 
acessível a todos os leitores. 

Um dos fatores que tornam os livros de fácil 
utilização por parte dos leitores é a forma pela qual os comandos 
são apresentados, tendo sido agrupados por função. Assim, no 
capítulo 12, porexemplo, dedicado à leitura de dados em matrizes, 
encontramos as instruções DIM, READ, DATA e RESTORE e 
uma série de programas onde é exemplificado os seus usos. 

Seguindo essa linha, temos 61 capítulos, que 
abragem desde a organização do teclado (uso de RGRA, LGRA, 
ETC), até ao Sistema operacional eBIOS. 

O Índice Analitico é outro ponto forte do 
livro e que permite uma consulta rápida e precisa. 

Se quisermos, por exemplo, informações 
sobre o comando RUN, ao consultar o Índice Analítico, veri- 
ficamos que ele foi mencionado nas páginas 15, 32 e 509. 
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Como já deve ser do conheci- 
mento de V.Sas., a imagem gerada pelos 
computadores da linha MSX, particu- 
larmente no Hotbit, não é de boa qualidade. 
A fim de melhorar a qualidade da imagem 
obtida no meu Hotbit, solicito-lhes a 
seguinte informação: 

Como obter uma saída RGB 
neste micro e como substituir o circuito 
modulador de RF por um de melhor quali- 
dade? Se possível, gostaria de receber o 
desenho do esquema desta modificação. 


Adquiri um monitor da marca 
Spectrum, do tipo usado em Apple e, 
quando o ligei nasaída de vídeo, não obtive 
nenhuma imagem. Depois de analisar e 
medir com osciloscópio o nível de sinal de 
vídeo, verifiquei que o mesmo era muito 
baixo. 

Resolvi este problema mon- 
tando um amplificador de vídeo, con- 
seguindo, então uma imagem muito boa. 
Porém, quando rodo certos programas, que 
usam diversas cores, a imagem fica distor- 
cida, como se perdesse o sincronismo. 
Ainda estou pesquisando como resolver 
este problema 

Certo de que poderei contarcom 
as informações solicitadas no menor prazo 
possível, subscrevo-mo. 


Pedro Américo Sampaio Guimarães 
Caixa Postal 98411 
28500 - Cantagalo - RJ 


No Hotbit existe uma pequena 
chave localizada perto da placa de 
identificação que serve para solicionar o 
tipo de monitor que se está utilizando. 

Acreditamos que, ao efetuar a 
mudança da posição desta chave, você terá 
uma melhora sensível na qualidade de 
imagem do seu monitor. 

Para podermos fornecer-lhe 
todos os dados necessários à solução do seu 
problema, encaminhamos a sua 
correspondência à Sharp, que, em tempo 
hábil, irá responder-lhe. 
E mer 
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Encontrei em uma banca 
de jornal de minha cidade um exemplar da 
revista “CPU”, editada pelos senhores e, 
como gostei muito da maneira como os 
assuntos foram tratados e percebendo ainda 
a possibilidade deme tornar assinante, sol- 
icito, se possível, que me enviem maiores 
esclarecimentos sobre o preço atual da 
assinatura e forma de pagamento. 

A revista que encontrei é a de 
número 3 e gostaria que, junto com os es- 
clarecimentos solicitados, fossem for- 
necidas instruções de como eu faria para 
adquirir também as de número 1 e 2, ou 
demais atrasadas, a fim de que eu não 
ficasse com matérias truncadas. 

Possuo um micro Expert 1.1, já 
convertido pelo Ademir em 2.0, drive com 
interface DDX e impressora Lady-80, 
equipamento este que forneci ao meu filho 
Cesar de 12 anos para iniciação na área de 
informática, sendo que as matérias que 
abordam na revista de muito ajudam. 


Otávio Alves Pereira 

Rua Dr. Roque Barbosa Lima 108 
Parque São Lucas 

03264 - São Paulo - SP 


As informações necessárias 
para efetuar a assinatura da revista podem 
ser encontradas no cupom próprio com esta 
finalidade, sendo o preço válido até a saída 
do novo número. 

Comrelação aosnúmero 1e2 da 
revista, informamos que o número 2 está 
esgotado, devendo ser relançado no início 
do próximo ano. O número 1 foi relançado 
por nós este mês e em São Paulo poderá ser 
encontrado na Litec, ou solicitado direta- 
mente a nós, ao custo de CzS 660,00. 


Os usuários de computadores pessoais 
são, por força do destino, uns pesquisa- 
dorese estão sempre à procura de fontesde 
informação. É com este espírito que 
sempre estou em bancas de jornais, ou 
livrarias, e, numa dessas investidas, en- 
contrei a revista CPU que, até agora, está 
de parabéns pelo excelente nível dos arti- 
gos publicados e programas apresentados. 

A idéia de apresentarem pro- 
gramas escritos em outras linguagens me 
agradou bastante pois é dificil encontrar- 
mos este tipo de serviço em outras revistas 
da área. 

Espero que continuem sempre 
assim, dando uma força aos programa- 
dores. 

Antonio Pedro Rodrigues Silva 
Caixa Postal 38080 
22452 - Rio de Janeiro - RJ 


Sou programador e encontro dificuldades 
em entrar em contato com outros pro- 
gramadores para troca de idéias e pro- 
gramas em qualquer linguagem. 

Gostaria de corresponder-me 
com programadores de qualquer lin- 
guagem, a fim de juntos possamos iniciar 
um clube de programadores e que, assim, 
possamos nos auxiliar em problemas do 
“dia a dia”. 


Sandro Daniel Minetto de Carvalho 
Caixa Postal 4117290 - Macatuba - SP 


Quero parabenizá-los pela ex- 
ecelente qualidade da revista. 

A meu ver, deveriam aumentar a 
parte relativa aos jogos, incrementando a 
seção de dicas de mil vidas e High Scores. 

Achei muito bom e oportuno o 
artigo do MSX 2 por transformação. Espero 
que logo seja lançado também no Brasil. 
Também, com a situação econômica atual 
do país, não me admiro que os fabricates 
ligados à área do MSX não estejam pen- 
sando em não fazer lançamentos no mom- 
ento. 

Se possível, gostaria de ver pub- 
licados na revista vários mapas de jogos que 
nos auxiliem a achar a saída. 


Ana Maria Santiago 
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A NOVA NEWSOFT 
VEM Al! AGUARDE! 
VOCÊ VAI ADORAR. 


EXPANSOR PARA 4 SLOTS 
Adote um expansor e multiplique 
a capacidade do seu micro 

com ele voçê pode conectar: 
INTERFACE - DRIVE - PLACA 
DE 80 COLUNAS - EXPANSÕES 
DE MEMÓRIA - MODEMS - 
SOFTWARE - RESIDENTES 

E ATÉ JOGOS 

Apenas 22 0TN'S 


VIDEO STATION 

Uma mini central para video 

cassete capaz de transmitir 
imagens num raio 


EG. 


RÇA DO MSXx 4“ 


MODEM COMPLETO 
Permite acesso ao REN PAC - 
CIRANDÃO - VIDEO TEXTO 
E ARUANDA 

Além de comunicação micro 

a micro 

Só 30 0TNS 


DRIVE DDX -5 1/4 

FACE DUPLA 

360 K FORMATADOS 

O único com garantia mesmo. 
Acompanha - INTERFACE - 
MANUAL E DISCO MESTRE 
Apenas 60 OTN'S 


PLACA PARA 80 COLUNAS 
Com ela voçê sentirá que 6 
bem mais fácil programar. 
Explore ao máximo seu MSX. 
Apenas 22 OTN'S 








PAPAI NOEL EXISTE MESMO 


6 jogos por apenas Cz$ 4.000 


ROMA - À CONQUISTA DO IMPERIO «SKATE DRAGON “CATCH 
THAT GIAL -KIMPO FIGHTER -MINDER -GRADIUS -DOBSHOW 
“STRIPGIAL l *DIZZY DICE «TAI-PAN «O CONDE DE MONTE 
CRISTO «DOM QUIXOTE 1 “DOM QUIXOTE 2 «GROTTEN VON 
OBERON -BOGY'B4 “MOUSER-CAPTAIN SEVILHA 1 CAPTAIN 
BEVILHA 2 “BLACK BEARO «MAD MIX -CRAZY CARS -HUNDRA 
“ARKANOID REVENGE “PINBALL MAKER "ARKOS 1 “ARKOS 2 
“SUPOER STAR SOCCER «VENON SRICKES BACK «REX HARD 
“STREAKER INDIANA JONES «CAR JAMBOREE -SASA -OCEAN 
CONQUEROR -ANAROUTE «SOUASH 2 EL MUNDO PEROIDO 
“MANEB JAST «EAGLE “BANANA JONES «ALBATROSS PHOENIX 
GOLF-AFTEROIOS TURBO GIAL -ALEHOP “MATCH DAY 2-NEW 
21 GAME OVER 1 «GAME OVER 2-CAR FIGHTER "LEGEND OF 
KAGE «ZONE OUT «TONIGHT AT THE PUB -DINO SOUAÇERS 
“GENIUS “MOVIE PAC MAN “GLASS «DAOIOS WHITE WITCH 
“CRIBAGGE «SIMON "TRIANGULANDO -J0 SQUASH “NUCLEAR 
BOWLS SWING MAN «JUNGLE JIM “MOBILE SUIT GUN DAM 
“BOUNCE «TEMPTACION «TIME BOMB-MARO BOILED MISSION 
RESGATE -HE MAN «ROMAN NO BOUKEN «POLICE ACADEMY 2 
“ELCID-STAR DUST “PAPAI NOEL -COMBLOT “OLDER DASH2 
“ULTRAMAN TRIAL SKY -RAPIER MAN 2-PANEL PANIC CETUS 
“ANGLE BALL “CASTELO DE DRACULA «TEDOKU “FREDOY 
HARDEST 1 FREDDY HARDEST 2-ZAIDER OF PEGUS -SMaL! 
JONES “UFO AZ “TT RACE “PEGASUS -KWGHT LEOM HYPE 
“BATTLE CHOPPER “WONDER BOY “SPACE CAMP -KENDO 
«INDY 500 JOE HOCKEY -«GULKAVE “ALPINE SKY JACK THE 
NIPPER2:GOODY-STAR SLAZZER-SKY GALDO «NIGHT FIGHT 
“SCARLET? “SUPER SNACK-YAYAMARU SPLASH -THE POLICE 
STORE -ACUSO -RAMBO 2 -MEMPORY GAME “LAPTICK 2 
JETALF STRICKES BACK “EXTERMINATOR «APEMAN STRICK 
AGAIN “CHOPPER -MOONSWEEPER “BOMULUS THE LOST 
CROWN “BOUNCING BLOCK -BALLBLAZER “MILK RACE -AUEN 
ORESGATE-QUINELA HIPICA-TARO -PENTAGRAM MIN -LODE 


RUNNER 1 ACE WORLD CE KING FIRST «INCA | LA ABEJA 
SABA “WORDS GAME “TRIDMMAN “STARBYTE SEA KING 
“CABBAGE PATCH KIDS NICK NEAKER “KNIGHT GHOST JUMP. 
COASTER "EXCHANGER -COMET TAL "AQUAPOUS SOS 
“OTHELO 2 -SKYGAWK -O'MAC FARMER -DOMNOES «MOLE 
MOLE 2 -HOPPER -GODZILA «BMX REXENCROSS -ANTARES. 
“SPY STORE -SAFAR X-PACHINCO «STRANGE LOOP «COSMIC 
ABSORSER -ROTORS “FINAL JUSTICE “MERLIN -SALORES 
DELIGNT -RASTER SCAN -TANK BATALION MARTIANOIDS 
“NONAMED “ACE OF ACES -CAN OF WORMZ CUBHERT 
“WRANGLER AWOID RUNNER-EL MISTERIO DEL NILO-TRAFFIC 
“SLOT MACHINE 2 “STAR SEEXER "MONSTERS FAIR JUMP 
LAND "HIGH WAY ENCOUNTER -LEONARD “BOING BOING 
ANFERNAL MANER -HOWARO THE DUCK «COASTER RACE 
“BUBBLER -MONIHT BROTHERS -PHANTIS 1 PHANTIS 2-EL 


LL LT 


ATRAVÉS DE CHEQUE NOMINAL A NEWSOFT 
INFORMÁTICA LTDA. — RUA SENADOR 
DANTAS, 117 SALA 736 — RIO DE JANEIRO — 
RJ CEP 20000 OU VALE POSTAL AGÊNCIA 
“ARCOS” COD. 522317 


PEDIDO MÍNIMO: 2.000,00 
PEÇA SUPER LISTÃO - GRÁTIS 


(Disco ou Fita incluído) 


“WINTER GAMES 1 STAR WARS 
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THE TRAIN GAME 


SPRINTER 





Descubra os macetes deste trem 


Este jogo mostra a cabine de comando do trem, bem como 
avista frontal para a via férrea. Depende de você viajar o máximo 
de milhas com este trem. 

O registrador de milhas não funcionará caso você escolha 
uma velocidade menor que a permitida. 

Você pode começar o jogo com a velocidade de 120 mph. 

O Sprinter tem certas particularidades que o distinguem de 
todos os outros trens, sendo as mais importantes as seguintes: 


1- Acionamento e parada com uma única alavanca; 
2- Controle automático de velocidade por meio de botões; 
3- Operação de abertura e fechamento das portas pelo maquinista. 


Alavanca de acionamento e parada 

Você pode mover esta alavanca com as teclas do cursor 
(para a frente e para trás), em quatro posições: 

1 - Alavanca toda para a frente: se foi previamente 
escolhida a velocidade, o trem começa a mover-se. Os freios estão 
livres e o indicador de freio está na oposição “off”. O amperímetro 
mostra uma corrente elevada passando pelos motores. Se a 
alavanca está nesta posição e o trem está em movimento, você pode 
escolher outra velocidade. E 

2 - Posição neutra: os freios estão livres e os motores 
parados. Quando o trem está em movimento a velocidade cai 
lentamente. Nesta posição você pode escolher uma velocidade. 

3 - Freios: os motores estão parados. O ar aciona o cilindro 
do freio e o manômetro indicará alta pressão. 

4 - Alavanca toda para trás: como na posição 3, mas a 
pressão nos freios é maior. 


Seletores de velocidade 

Próximo do centro do painel de controle, você verá oito 
botões para controle da velocidade. Estão disponíveis as seguintes 
velocidades: 

4-40mph 

6-60 mph 

7-70mph 

8-80mph 

9-90 mph 

0- 100 mph 

1-110mph 

2-120mph 

Para selecionar a velocidade, a alavanca de acionamento e 
parada não devem estar na posição de parada. 
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EQUIPE SILVA SOFT 
RODRIGO 

ZÉ MÁRIO 
ROBERTO PINHÃO 


Operação central das portas 

Acima dos oito botões de seleção de velocidade, você en- 
contrará dois botões para operação das portas. 

Antes de partir, você deverá fechar as portas, pressionando 
a tecla “D”. Soará uma campainha para indicar que você pode 
partir.Quando as portas estão fechadas, acende-se uma luz verde 
no painel de controle. 

Para abrir as portas, pressione a tecla “O”. 
Painel indicador 








1 














K 
ohÃo co0 0000 


9 10 H 











A 00004 





1- Controles de luz - aquecimento 
2- Voltímetro (1800 V) 

3- Amperímetro (300 - 500 A) 
4- Velocímetro 

5- Pressão no reservatório de ar 
6- Pressão nos cilindros de freio 
7- Chaves de inclinação 

8- Chaves de alta voltagem 

9- Luzes indicadoras (portas) 

10 - Botões do CAT (Controle Automático do Trem) 
1 - Luzes indicadoras dos freios 


Painel de controle 








1-Chaves de barra 


2 - Botões seletores de velocidade 

3 - Alavanca de acionamento e parada 
4 - Pino de parafuso 

5 - Chave de ignição 

6 - Portas - limpadores de pára-brisa 








Controle Automático do Trem 

O equipamento de controle do trem é interligado aos sinais 
localizados ao lado da via férrea, os quais enviam um código ao 
trem, que, traduzido, informa o limite de velocidade para aquela 
parte do trajeto. 

Esta informação é transmitida por sinais sonoros e lumino- 


sos. 












verde - máximo 120 mph 

verde + 8 - máximo 80 mph 
verde + 6 - máximo 60 mph 
amarelo + 8 - reduzir para 80 mph 
amarelo + 6 - reduzir para 60 mph 
amarelo - reduzir para 40 mph 








Quando você passa um sinal que permite outra velocidade, 
soa uma campainha dentro da cabine. Se a sua velocidade é muito 
alta, soa outra campainha e você deverá acionar os freios imedia- 
tamente, caso contrário, o CAT parará o trem. 

Quando a velocidade for reduzida suficientemente, a 


campainha tocará de novo. Isto significa que você pode parar de 
frear, escolhendo novamente uma velocidade. 

OCAT nãoreagiráa sinais vermelhos, prevenindo, apenas, 
a proximidade de um deles, por meio de um sinal amarelo - 4. 


Segurança Extra 

Quando a alavanca de acionamento está na posição neutra 
eotrem atinge uma velocidade abaixo de 40 mph, soa uma cigarra. 
Se o maquinista não pressionar o botão de saída (tecla *'Q"), o trem 
parará. 


As estações 

O Sprinter é um trem paradouro e, assim sendo, deve parar 
em todas as estações. 

Você deve parar o trem o mais próximo possível do fim da 
plataforma, perto do sinal de parada. 


Joystick 
Frente/Trás - Alarme de acionamento/parada 
Esquerda/Direita - Escolha de velocidade 


SILVASOFT 
MSX PETROPOLIS MSX 


Aqui você encontra: 


Educativos 

—Abelha Sábia 
—Mago Voador 
— Trigonometria 


—Corpo Humano 


Aplicativos 
—Controle de Estoque 
—Controle Bancário 

—MSX Tools 

—Editores de Gráfico/Som/Voz 


[— || 


E os melhores jogos: 
Madmix—Black Beard—Worid Games Taipan—Labadia del Creimen—Turbo Girl— 
Match Day Il—Super Star Soccer—Alehop—Indiana Jones 


Para adquirir estes programas basta escrever uma carta com nome 
e endereço legíveis pedindo os programas desejados e um cheque 
nominal e cruzado a Silvasoft Ltda. ou vale postal. Peça nosso listão 
grátis, ou venha ao nosso Show Room: 


Rua do Imperador 518/302 CP 91.321 CEP 25600. 


Peça nosso Jornal 





CPU 43 











O MUNDO PERDIDO 


DA HI DIMENSÃO 


Numa sombria e assustadora noite de sexta-feira, 13 
de agosto de 2004 — ano bissexto, para o seu azar — houve um 
“acidente geodimensional, devido ao fortalecimento das forças 
malignas que se intensificam neste dia maldito e você foi “arran- 
cado” da paz do seu lar para ser jogado num mundo de morte e cru- 
eldade. 

Mas ainda há uma chance. Reprogramar o único tele- 
portador dimensional existente no universo que se encontra, por 
coincidência, em algum lugar nessa dimensão inóspita. Repro- 
grame-o, pois esta é aúnica chance para que você possa retornar ao 
nosso querido planeta. 

DICAS 


O jogo oferece as seguintes funções de ajuda: 

Verbo ajudar: fornece todos os verbos existentes no jogo e, 
dependendo da situação, dá dicas de como proceder. Não há dicas 
falsas. 

Arquivos: escrevendo esta palavra, o computador mostra na tela 
um menu contendo opções para a gravação e leitura de arquivos. 


GUILHERME A. L. DA SILVA 


O mundo perdido da II dimensão é habitado por: 


MUTANTES DO APOCALIPSE: 


Eles aparecem para saquear ou, até, sanguinariamente, matar. 
São perigosíssimos. 


FANÁTICOS RELIGIOSOS: 


Oferecem perigos maiores que os mutantes.Todo cui- 
dado com eles é pouco. 

O jogo apresenta um nível de dificuldade razoável, que 
poderá ser alterado. Para que o jogo fique ainda mais difícil, delete 
do programa as linhas de 331 a 337. 

Caso queira dificultar um pouco mais, mude o limite de 
objetos a serem carregados por vez pelo aventureiro. Para isso, 
apague os comandos REM das linhas 843, 844 e 845. 

O limite de objetos é dado pela variável NJ da linha 845 
e o número de objetos é fornecido pela variável DO. 











MSX PROFISSIONAL É NO MISC 


O MISC lança o PACOTÃO GLOBAL PROFISSIONAL que consiste de: seleção e venda de equipamentos 
adequados. softs especificamente desenvolvido para cada profissão, com as adaptações necessárias para 
cada caso particular, treinamento e assistência técnica. Estes são os Softs já disponíveis: ADVOCACIA. 
CONTABILIDADE, ENGENHARIA CIVIL. Conheça as atividades do MISC: 1º TRANSFORMAÇÃO PARA VER- 
SÃO 2.0: agora você pode transformar seu Hot-Bit ou Expert na segunda geração de MSX. rigorosamente dos 
padrões internacionais do MSX 2.0. 2º CARTUCHO DE 256 Kb, PARA JOGOS MEGAROM: com ele e usando LIES 





seu drive você tem acesso aos mais avançados jogos existentes, com mais ação, maior resolução e melhor música. 3º SOFT- 
HOUSE: diariamente o MISC está ampliando seus títulos. Extensa coleção de jogos e aplicativos para 2.0 jogos megarom. 
4º SERVIÇOS: orientação na utilização e seleção de equipamentos e softs. 5º COMPRA E VENDA de Expert e Hot-Bit 
6º PRODUTOS: drives. impressoras, modems. interface para Praxis 20. capas para micros. drives e impressoras. livros espe- 
cializados etc. 

ASSOCIE-SE AO MISC. Usufrua das vantagens que proporcionamos aos nossos associados na aquisição de softs. 
produtos e serviços. O Jornal do MISC é uma exclusividade dos nossos associados. Pague uma taxa única de CzS 4.000,00 
(não temos mensalidades) e receba grátis uma coleção de jogos em fita ou disco. Enviar cheque nominal à Embass Editora 
Ltda. ou depositar no BRADESCO na agência 0108, conta nº 141.184-5. MSX INTERNATIONAL SERVICE CLUB - A solução 
definitiva para o usuário MSX 


Peça o catálogo detalhado sobre o MISC 
Rua Xavier de Toledo, 210 - Cj. 23 - CEP 01048 - São Paulo - SP - Fone: (011) 34-8391 e 36-3226. 
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10 REM -— ADVENTURE 

28 REM -— O MUNDO PERDIDO 

38 REM — PARA À LINHO NSX 

40 REM —- GUILHERME A.L, DA SILVA 
50 REM -— 22/06/88 


62 KEY ON:DEFUSR=HE 

63 STOPON:0N STOP GoSUBLaAS 

64 POKEMFCAB, 1 

78 KEVI, PEGAR "SKEVZ, "DEIXAR ":KEVS, PL 
ISTARP+DHR$(13):KEVA, "AJUDAR" +CHR$( 13); 
KEYS, "DESISTIR" +OMRS (13) 3KEYT, "ARQUIVOS 
"ADHR$( 13) :KEVO, "PUXAR *:KEY9, JOGAR 
KEYLO, "DEFENDER-SE "sKEY6, "VESTIR * 

BB COLOR 7, 1:CLS:LOCATEO, 3:PRINT"A O MU 
NDO PERDIDO DA TERCEIRA DIMENSÃO 4º:LOC 

ATE 7,18: INPUT" CASSETE OU DISQUETE * 
5C8:LOCATE 7,10:PRINT" Quer instrucoes 
(S/N) ?";SPC(16):LOCATER, 17:PRINT"DESEN 
VOLVIDO POR GUILHERME A.L.DA SILVA 

98 AS=INEY$:IF A$="" THEN 98 

108 IF A$="S" THEN GOSUB 2428 

118 “PREPARAR MATRIZES DAS RESPOSTAS 
128 DIM R$(24) R(24) 

138 RESTOREL4B:FOR K=LTOZA;REÁDAS(K) ,R( 
KJ:MEXT 

148 DATA JOGAR,4,LINPAR, 5, LIGAR, 6, PUXAR 
»7 DESISTIR, 8,LISTAR,9, DEFENDER-SE, 16,A 
JUDAR, 14, REPROSRAMAR, 12, VESTIR, 13, VERIF 
ICAR, 14, ASSUSTAR, 15 

150 DATA PEGAR, 2, DEIXAR, 3, CHAMAR, 16, INS 
ERIR, 17 JANELA, 18, ARQUIVOS, 19,LIVRAR-SE 
+28, BEBER, 21 

168 DATA NORTE, 1, SUL, 1, LESTE, 1, OESTE, 1 
178 REM PREPARA MATRIZES DE OBJETOS 

188 READ NB 

198 DIM OB(NB) ,CBS(NB) ,S$(NB) 

200 FOR 1=! TO NBSREAD OB(1),0B$(1),S6( 
NEI 

240 DATA 13,7,ELIXIR,Ha us vidro cos us 
elixir no chao 

228 DATA 9,CORDA, Tem una corda 5 polega 
das perto de voce 

238 DATA 3, BATERIA, Tem uma bateria de 1 
2 volts no sofa 

248 DATA 15,ROLPA ANTI-RADIACAO, Ha uma 
roupa anti-radiacao no chao 

258 DATA 28,0ONTADOR GEIGER,Ha um conta 
dor geiger perto de voce 

268 DATA 16, COMPUTADOR MSK - DESLIGADO, 
Tes ua Super computador nos seus pes 
270 DATA 11,RUBI Um RUBI enorae esta no 
chao 

288 DATA B,URANIO,Ha uma magnifica jazi 

da de uranio 238 

298 DATA B,ANEL DO MEDO, Nos seus pes e 
sta o lendario anel do medo cravejado d 

e brilhantes 

308 DATA O,ESPADA DE OURO, aa linda esp 

ada de ouro que foi deixada pelos segui 

dores!!! 

318 DATA 19, TELEPORTADOR, Ten us telepor 





tador disensional no cantoda sala 

328 DATA O, MUTANTES, a grupo de mutante 
5 aparece nusa fumacaverselha 

338 DATA B, DISQUETE, Ha us disquete de c 
computador no bolso 

334 RESTORESSS: DIAL $ (24) sFORI=ITOZA;REA 
DL$(T):NEXT 

335 DATA DESFILADEIRO DO NUNCA, CASA DO 
ESPANTO, , SALA DE FENIX, FLORESTA PETRI 
FICADA,SAARA DIMENSIONAL 

336 DATA ENCRUZILHADA, GRUTA DO TERROR, T 

ENPLO DA GRUTA, MONTANHAS ROCHOSAS, , UST 
NA NUCLEAR 

337 DATA SAIDA LESTE, PONTE DE CORDA, CAC 
HOEIRA DE ACIDO,SALA DO TELEPORTADOR, LA 
BORATORIO, REATOR DA USINA, , , IDOLO DE PE 
DRA 

348 * 44 POSICAO INICIA 84 

35 Lat 

368 "ACHAR LOCAL 

378 IF FNO! AND MEZ THEN GOTO 2428 
31 CLS:PRINT" O mundo perdido da 3 
a disensao 

388 COLOR 15,4 

398 MT=NT+L:O=INT(RND(-TIME) 85): IF FM 
1 AND MT25 AND Dx4 THEM MU=1:08(12)= 
39 TF FROL AND MEZ THEN BOTO 2628 
392 IF FNOI AND MEL THEX MZ 

394 IF LCIL THEN O L GOSUBIBIO, ,16MO,, 
+ 1898, 1910, 1948, 1978, 2888:G0TO 428 

408 TF LC24 THEN (N L-10 GOSUB20O, 2000 
+192128,2158,2188, 2228, 2248, 2098: GOTO 4 
a 

8 TF LX26 THEN ON L-20 GOSUBZ328, ,,23 
u 

428 “COLOCA CADA OBJETO EM LUGAR 

438 FOR I=1TONB:IF OB(1)=L THEN PRINT S 


s(1) 

448 NEXT 

458 * APONTAR DIREDOES 
sa Ê 
478 PRINT"Pode seguir” 
475 PRINT 


488 TF IDO THEM PRINT TAB(S); "NORTE: * 
LS(L6) 

498 TF SO THEN PRINT TABIS);'SUL : *; 
L(LH) 

588 IF EDO THEM PRINT TAB(S);'LESTE: *; 
LEILA) 

SHB TF DO THEM PRINT TAB(S); OESTE: * 
L(L=1) 

508 " INSTRUCDES 

338 PRINTATIPUT"E agora “Ft 

54B GOSUB 1298 


598 * SELECIONA OPCAO 

568 IF 1=8 THEN GOTO 568 

578 ON 1 GOTO 608,778,000,958, 1854, 1110 
+1228, 1008, 708, 2788, 1388, 1488, 1568, 1628 
+ 1678, 1738, 2508, 378, SODA, 2909, 3588 

588 PRINT:PRINTEU não sei como ";06:60 
To 43 

598 * ROTINA DE MOVIMENTO 

680 IF 1850" AND WD THEN L=L-1:6070 3 





n 
640 TF 18="Nº AND N)O THEN L=l-6:6070 3 
n 


640 TF 1$="L" AND EJB THEN L=L+Í:BOTO 3 
mn 
658 IF 18="5º AND SB THEN L=Ltb:6OTO 3 
n 


678 * SE NAO HOIVER LOCAL POSSIVEL NESS 
À DIRECAO 

680 PRINT:PRINT"DESCULPE - Voce não pod 
e seguir por estecaminho.":60T0 398 

698 “LISTAR 

788 PRINT"VOCE TEM :";s INc8 

748 FORG=ITONE 

728 IF 0B(6)=-1 THEN PRINTTAB( 18) ;DBS(6 
ele 

T3 NEXT 

748 TF INEO THEN PRINT “NADA” 

758 GOTO 39 

788 * pegar 

T7R FOR Get TO NB 

788 IF INSTR(DBS(6),N6)=1 THEN BOTO 818 
7% NET 

888 PRINTNS; "777" :BOTO 398 

BLO TF OB(6)=-! THEN PRINT"VOCE JA TEM. 
“:B0T0 398 

828 IF OB(G)C THEN PRINTNAO ESTA AQU 
E."sB0T0 398 

BSB IF 0B(6)=0B(12) OR OB(6)=0B(11) THE 
N PRINT"VOCE NAO PODE PEGAR 1550! *;G0TO 
se 

848 IF OB(6)=0B(4) THEN PRINT*VOCE TEM 

RE VESTI-LA.":GOTO 398 

AL IF OB(6)=08(2) AND CO(M THEN PRINT 
“VOCE TEM QUE PUXA-LA,"sGOTO 398 

BAS REM FORI=1TONB: IF 08(1)=-1 THEN NJ= 

Na 

B44 REM NEXT 

845 REM IF NJD=5 THEN PRINTºVOCE NAO PO 
DE CARREGAR TANTA ODISA!*:GOTO398 

858 PRINTºOK,..":08(6)=-1 

868 GUTO 398 

878 * DEIXAR 

BS8 FORG=iTONE 

898 IF INSTR(OBS (6) N6)=1 THEN 918 

908 NEXT:PRINTHS;"777":G0TO 390 

AB IF OB(6)O-1 THEN PRINTºVOCE NAO PO 
DE LARGAR O QUE NAO TEM!" GOTO 390 

928 PRINPOK...":0B(B)=L 

38 GOTO 39 

“MB "JOGAR 

958 INSINSTR( "CORDA" M$): IF INCA THEN P 
RINTºINPOSSIVEL - ";N4; 

968 IF 0B(2)O-1 THEN PRINT"VOCE NAO TE 

M CORDA, ":BOTO 398 

978 IF LC18 THEN PRINT"VODE NAO PRECIS 
A FAZER 1590! ":G0T0 398 

988 IF CU=i THEN PRINT"JA FOI FELTO"s60 








2CJ=1:08(2)=L:GOTO 398 


1948 PRINT:PRINT" 
ente (5/n)?º 


Quer jogar novas 
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1820 AS=INKEYS: IF A$="" THEN 1828 

4038 TF A$="S" THEN RUN 

1848 KEVON:COLOR 15, 1, 1:CLS:A=USR(8):EN 
D 

1858 * LIMPAR 

1868 INSINSTR( "VEGETAÇÃO" ,N$): IF INCL T 
HEX PRINT" ISTO NAO DA" .":GOTO 390 

1870 IF 08(8)=24 OR 0B(8)=-! THEN PRINT 
“JA FOL FEITO ."s60T0 3980 

1088 IF L$)24 THEN PRINT" IMPOSSIVEL !!7 
PuB0TO 390 

1881 IF 0B(4)6)-1 THEN PRINTºVOCE FOI C 
CONTAMINADO PELA ALTISSIMA RADIAÇÃO 
DO URÂNIO 238. *:N=8:E=8:5=0:H=8: GOTO 39 
8 

1098 LV=1:08(8)=24:60T0 398 

108 "LIGAR 

1418 FOR G=1TONB 

1120 TF N$=LEFTS(OBS(G) LEN(NS)) THEN 1 
158 

1438 NEXT 

1148 PRINT"2277":GOTO 398 

1LSQ TF 606 AND 66H11 THEN PRINTPNAO D 
Aº. "BOTO 398 

1468 TF OB(6)<-1 THEN PRINTFALTA COMP 
UTADOR.":60TO 398 

1165 IF 6=6 AND 0B(3) 0-1 THEN PRINT"FA 
LTA BATERIA" :GOTO 398 

1170 TF B=14 AND LC9 THEN PRINTºLUGA 
R ERRADO, ":GOTO 396 

1480 JF G=1! AND RR=8 THEN PRINT"COMO V 
CCE NAO REPROGRAMOU SE DANOU, POIS O TE 
LEPORTADOR SOLTOU UMA TAMANHA DESCARGA 
DE LASER EM VOCE. .ESTAS MORTO!" :GOTO 16 
L 

1185 IF B=l! AND LOCA THEN PRINTºLIVRE 
=SE DOS OBJETOS DESTE MUNDO. ":BOTO 398 
1198 TF G=11 AND RR=! THEN GOTO 2398 
1200 IF 6=6 AND [558 THEN PRINT"FALTA [ 
NSERIR DISQUETE NO COMPUTADOR, ":BOTO 39 
1 

4240 TF 6=6 AND 08(3)=-1 AND 1551 THEN 
PRINT*OK.:LR=1:08(3)=:08(13)=8:088(6) 
=LEFTO(47,0B8(6) Je'LIGADO "BOTO 390 
1228 * PUXAR 

1238 INEINSTR( "CORDA" ,N$):1F INC! THEN 
PRINT" INPOSSIVEL - "5N65"272":G0T0 398 
1240 TF OB(2)OL THEN PRINT"AGUI NAO TE 
MN CORDA." :GOTO 398 

1258 1F L6)18 THEN PRINT"VOCE NAO PRECI 
SA FAZER 1990!" :B0TO 398 

1268 TF Cl=B THEN PRINTºJA FOI FEITO” 
4278 PRINTºOK.":CJ=8:08(2)=-1:B0TO 398 
1288 * INSTRUCAO DE CHECAGEM 











1318 V$ELEFTS(I6, 1-1) 

1328 N$=MID$(I9, 144) 

133 150 

1340 FOR K=iT024 

1358 IFINSTR(RS(K),V$)=1 THEN I=R(K):16 


=LEFTS(V$,1) 

1368 NEXT 

1378 RETURN 

1388 * AJUDAR 

1390 PRINT;PRINT"SEUS VERBOS: "ss FOR Usd 
TO28: IF U=28 THEN PRINTRS(U) :PRINT:NEXT 
2BOTO 1408 ELSE PRINTRS(U);*, *;:NEXT 
1400 TF L=9 AND BRO! THEN PRINT" Beba 
o elixir da corages e da vida. *:BOTO 3 
” 

1418 IF L=16 THEN PRINT" Nao passe pel 
a ponte coa o computador ..":GOTO 398 
1428 JF L=18 OR L=12 THEN PRINT'Assuste 
os seguidores ispiedosos.”":PRINT:GOTO 
se 

1438 TF L=24 AND 08(5)O-! THEN PRINTF 

egue o contador geiger .*:PRINT:GOTOS9O 
1448 IF L=6 THEN PRINT"Chame Feni: 

PRINT: GOTO 390 

1458 IF L=19 THEN PRINT"Para ligar o te 
leportador procure: disquete, computador 
sbateria,rubi,uranio 238."*:PRINT:GOTO 3 

) 

1455 TF OB(4)=-1 AND INT(RND(-TIME)$2)= 
4 THEN PRINT"Verifique bolso da roupa a 

nti-radiacao.*:G0T0 398 

1456 TF INT(RND(-TIME)85)+1=3 THEN PRIN 

T'Defenda-se com a espada ou assuste co 

a o anel os autantes...“:&0TO 390 

1457 TF INT(RND(-TIME)82)=1 THEN PRINT" 

Seu objetivo e reprograsar o teleportad 

or epara isso precisa de:p/ calculos, u 

a COMPUTADOR Ligado(c/ BATERIA E DISQUE 
TE), us RUBI estabilizador de fotons, u 
na jazida de URANIO 238 para cosbustive 
1.ºsPRINT:BOTO 398 

1448 GOTO 398 

1478 "* REPROGRAMAR 

1488 INSINSTR(*TELEPORTADOR COM COMPUTA 

DOR", NS): F INCL THEN PRINTPNAO DA'.":6 

To 398 

1498 1F LG19 THEN PRINTºLUGAR ERRADO, * 
36070-398 

1588 IF 0B(4)6-1 THEN PRINTºFALTA COMP 

UTADOR. * 

1548 TF 08(4)=-1 AND LR=8 THEN PRINT'CO 

MPUTADOR DESLIGADO. * 

1528 IF 0B(7)6-1 THEN PRINT"FALTA RUBI 
EXERGETICO, * 

1538 IF 0B(8)6)-1 THEN PRINTFALTA URAN 
10 238" 

1535 IF 1558 THEN PRINT"O DISQUETE NAO 

ESTA INSERIDO NO COMPUTA-DOR. .." 

1548 IF 15=1 AND LR=1 AND 08(7)=-1 AND 

08(8)=-1 THEN PRINT"OK, Pronto para fun 

cionar."sRR=1:S6(11)="Ha o teleportador 
reprograsado para as cordenadas terraq 

ueas na sala*:G0T0 398 

1558 GOTO 398 

1568 "VESTIR 

1570 IF 0B(4)OL THEN PRINTPNÃO ESTA AQ 

UL.*:GOTO 398 






4580 INEINSTR( "ROUPA" ,N6) IF INGL THEN 

PRINT" ISTO NAO PODE SER FEITO":GOTO 398 

1598 TF OB(4)=-! THEN PRINT” JA ESTA VE 

STIDA.":60TO 398 

1688 08(4)=-1:PRINT"OK. ":BOTO 398 

1610 "OLHAR 

1628 INSINSTR(" BOLSO” ,N6): IF INI THEN 

PRINTº IMPOSSIVEL 77!!":60TO 390 

1638 IF 08(4)<)-1 THEN PRINT"NAO ESTOU 

VENDO BOLSO. ":GOTO 398 

1648 JF OB(13)=L OR 08(13)=-1 THEN PRIN 

T'JA FOI FEITO. ":GOTO 390 

1658 PRINTºOK, ":08(13)=L:BOTO 398 

1668 " ASSUSTAR 

1678 INcINSTR( "SEGUIDORES COM ANEL" ,N6) 

sIF INb=1 THEN 1680 

4671 INEINSTR( MUTANTES COM ANEL" ,N$):A 

aj 

1675 JF INCA THEN PRINTºNÃO POSSO "544 

VM 

1680 IF 0B(9)<)-1 THEN PRINT"COM QUE?": 

RFB: GOTO 390 

1698 TF AB AND LC2 AND LCO THEN PR 

INTSPRINT:PRINT” Como nao existes segui 

dores aqui a mal-dicao voltou-se contra 
voce e 0 transforsou ea aarmore,..":80 

To 1818 

1695 IF OB(12)OL AND fel THEN PRINTSPR 

INTSPRINT" Os mutantes ouviram voce e t 

e atacaram de sansinho pelas costas, Vo 

ce foi cortado ao meio pelas espadas mu 

tantes. ..":GUTOLDIO 

ATOR TF Asi AND AGA THEN PRINT"JA FOL 
FEITO!" :A-B:60TO 398 

ATOL TF FHEL AND AGO THEN PRINT:PRINT: 

PRINT"OS MUTANTES RESSUCITARAM. . .º:FMB 
«6070 390 

4740 JF AC THEN PRINTºOK.":PRINTSPRIN 

Tº0s seguidores asendrontados com 

seugesto ajoelharas a seus pes, e lhe e 

ntregaras us presente... ":PRINTSAU=1:0 

B(1B)=L:GOTO 398 

4714 MU=B:08(12)=8:PRINT:PRINT" Os quta 

ntes foras esbora correndo ( commedo da 
maldicao do anelje prosetendo vinganca 
«e» "SBOTOS9O 

1728 * CHAMAR 

AT38 TF LC) THEN "NAO TEM NIGUEM AQUI! 
"38070 39 

1740 INSINSTR( "FENIX" ,N$): IF INCL THEN 
PRINTºGUEN E“ *5N854229360T0 398 

4750 1F FE=1 THEN PRINTSPRINT"VOCE ABOR 
RECEU FENIX !!!*;PRINTPELA MANDOU MILHO 
ES DE URUBUS TE MATAR. ":PRINT"VOCE MORR 
EU ..."260T0 1000 

4768 PRINT"OK.":PRINT:PRINT"Una ave lin 
da e delicada poe ao seus pesus present 
e de FENIX, o MEL DO MEDO, eletes o pod 
er de lancar saldicoes e queso posuir 
tera poderes ilimitados... ":PRINT 
ATTR 08(9)=6:PRINTSS(9) 

1788 NEXT:GOTO 538 

















1798 ' DESCRICAO DOS LOCAIS 

1808 * LOCAL 1 

1818 PRINT" Voce esta nua desfiladeiro 
sem fundo, 0 DESFILADEIRO DO MUNCA..,* 
1828 Ne0:E=0:5=1:H=0: RETURN 

1838 * LOCAL 3 

1840 PRINT" Voce esta na Mansao Mal-As 
sombrada,” 

1850 IF BRO! THEN PRINT” Os espiritos 
da Mansao lhe deram um susto e voce a 
orreu de sedo...":BOTO 1008 

1868 N=8:E=0:5=1 :H=0;RETURN 

1878 "LOCA 6 

1888 PRINT" Aqui e a Sala Encantada de 
Fenix - a ave sagrada.” 

1898 N=8:E=8:5=1:H=0: RETURN 

1908 * LOCAL 7 

1910 PRINT" Voce esta na Floresta Petr 
ificada,* 

1928 N=1:E=1:5=8:h=B: RETURN 

1938 * LOCA 8 

1948 PRINT" Voce esta no maligno Deser 
to do Saara Dimensional.” 

1950 N=9:E=1:5=8:W=! RETURN 

1968 "LOCA 9 

1978 PRINT" Aqui e a encruzilhada dos 
Indecisos, 
1980 NEl:E=1:5=1:H=1;RETURN 

1998 * LOCAL 18 

2008 PRINT" Tu estas na fantasaagorica 
e lendária, GRUTA DO HORROR!!!" 

2018 TF (08(18)=-1 AND AUG!) OR (OB(LO 
)$-1 AND ALGO) THEN PRINT" Os seguid 
ores de THANTHANDACICA, estaovindo te p 
egar. Faca alguea coisa!” 

2020 N-8:E=1:5=8:W=!: RETURN 

2838 * LOCAL dt - 
2848 PRINT" Tu estas no templo dos seg 
uidores de THANTHANDÁCUCA, os impiedos 
gd 

2858 IF AUG! THEN PRINT" Os impiedoso 
5 é carniceiros seguidoresde THANTHANDA 
CUCA te embalsamaras nus sarcofago para 
sempre!!!227":; GOTO 1000 

2868 N=:E=1 :5=0:H=1;RETURN 

2870 * LOCAL 12 

2080 PRINT" Voce saiu da Gruta e agora 
esta numa montanha rochosa." 

2890 IF (OB(18)=-! AND AUG) OR (OB(1O 
JO-t AND AU) THEN PRINT" Mas os se 
guidores de THANTHANDACICA, estaovindo 
te pegar. Faca alguma coisa!" 

2100 Ne1:E=0:5=1:h=1 :RETURN 

218 * LOCAL 15 

2128 PRINT" Voce acaba te entrar na gr 
ande e potente USINA NUCLEAR DE TANGA D 
OS REIS..." 

2138 Ne1:E=1:W=0:5=1 ;RETURN 

2140 * LOCA 16 

2450 PRINT" Voce esta na saida leste d 
a usina.” 

2160 N=8:E=1:H=1:5=0;:RETURN 

2478 * LOCAL 17 

2188 PRINT" Voce esta na aarges de us g 




















rande vale, que e atravessado por uma po 
nte de corda,” 

249% TF 0B(6)=-1 THEN PRINT" À ponte se 
partiu por excesso de peso do computa 

dor.. TO 1008 

Neg: MEL: RETURN 

2210 * LOCA 18 

2228 PRINT" A sua frente ha uma cachoe 
ira de acido sulfúrico.” 

2238 IF CUCM THEN PRINT" Voce nao pod 
e atravessar a nado! !“:NEB:E=B:S=B:Wel: 
RETURN 

2240 Ne1:E=8:5=1:M=1;RETURN 

2258 * LOCAL 19 

2268 PRINT" Voce esta na sala do telep 
cortador di- sensional.” 

227 NEB:E=1:5-0:W=8: RETURN 

2288 * LOCA 28 

2298 PRINT" Voce esta no laboratorio d 









38 * LOCAL 24 


2328 PRINT" Tu estas no centro do reat 
or termonu- clear da usina." 

2338 IF 0B(4)O-1 THEN PRINT" Como a r 
adiotividade e muito grande e você nao 
esta coa a roupa certa, VOCÊ BOrreu co 
ntaminado.”:GOTO (088 

T3MB Ne1:E=0:5-8:H=1 ; RETURN 

7358 * LOCA 24 

2368 PRINT" Ha una vegetacao muito est 
ranha sobre ua idolo.” 

2378 TF 0B(5)O-1 THEN NEl:E=B:5=B:h=0: 
RETURN 

2388 JF LVC THEN PRINT" O contador q 
eiger esta denunciando  alguaa coisa 








23% * VITORIA 

2408 CLS:COLOR 5, 1:PRINTTAB(13);"A Tele 
portacao” 

2484 PRINT:PRINT" 
eleportador";CHR$(&H22);' foi acionado. 


O "CRS(UHZR);"T 


«e"sPRINT? Raios de laser de varias 
cores e espessuras percorrea a sala, n 
o painel de controle as luzes piscas fr 
eneticasente, de repente um alarme toca 
u 

2482 PRINT" O que sera 77” 

2483 PRINT:PRINT" E" a teleportacao 
que esta se processando, Us raio o atr 
avessa, voce nes o sente e..." 

2484 PRINT" Quando voce abre os olh 
os, esta de volta ao seu mundo, a sua C 
asa."sPRINT" Agora esta no seu quar 
to, ao redor, nao tes ningues. Olha o r 
elogio esSexta,!3 de Agosto de 2084 Bs 
11:31 da noite!" 

2485 PRINT" Foi um sonho?!" 

2486 LOCATES,21:PRINT"Pressione Qualque 
r Tecla": IF INKEY$="" THEN 2486 

2487 CLS:PRINTTAB(13);"A Teleportacao" 
2486 PRINT:PRINT:PRINT! Voce poe su 
a são no bolso e sente alguaa coisa de 


estranho, 

2409 PRINT" Mas como, voce abandono 
u tudo 2;PRINT" Voce pega, olha," 

2418 PRINT” Um papel! Voce 0 abre, 

Una Carta! Voce le esta:” 

2412 PRINT:PRINT” Isto nao foi ua 5 
onho.":PRINT! Foi uma aventura e ta 
ntoltte 


2415 PRINTSPC(5);"Eu voltarei, bravo av 
entureiro. ":PRINTSPC(5); “Eu voltarei... 
“3PRINTSPC(5); "Voltarei para novas E em 
ocionantes";SPC(6); "aventuras, ":PRINTTA 
B(17);"ASS: LORD TREVAS": PRINT 

2417 LOCATES,9:FORk=[0TOLO:LOCATEO, K:PR 
INT" "sLOCATES9,KaPRINT" "SNEXT 

2418 LOCATES, 17 

2419 PRINT;GOTO 1000 

2428 LOCATE 8,22:00L0R 15, 13:PRINT:PRIN 
T 

2438 PRINT;PRINT" 

a Ja disensao":PRINT 
248 PRINT" Houve ua acidente geo-d 
inensinal nusa Sexta-feira, 13 de Agost 
o de 2884 (bissexto) Às 11:38 da noite,” 
2444 PRINT" Devido ao fortaleciment 
o da ma sor te neste detestado dia, voc 
e foi puxado para ";CHR$(4422); "0 Mundo 
Perdido da 3a Dinensao";CHR$(H22) ;"." 
2458 PRINT" Voce deve reprograsar o 
unico tele portador existente np unive 
rso, para voltar a terra rever sua fami 
Jia.” 

2468 PRINT" Como esse mundo e muito 
hostil, cuidado! Voce enfrentara cacho 
eiras de aci do, mansoes sal-assoabrada 
S, fanaticos religiosos e auito mais.. 





O mundo perdido d 


2478 PRINT:PRINT" Quando nao souber 
o que fazer escreva AJUDAR (em maiucul 
as).* 

2480 PRINT:PRINT:PRINT:PRINTTAB(9) ; "Pre 
ssione Qualquer Tecla” 

2484 L$=INKEY$:IF L$="" THEN 2481 

2482 LOCATEI3,22:PRINT:PRINT" 

“CONTINUAÇÃO "PRINT 

2483 PRINT" Como desgrata pouca e b 
obages ha tanbes us grupo maligno de 
mutantes do apocalipse, quando estiver 
na presenca deles digite DEFENDER-SE DO 
S MUTANTES (qdoestiver com a espada) ou 
ASSUSTAR MUTAN-TES(qdo estiver c/ 0 an 
el). 

2485 PRINT" Se não fizer isto voce 
sofrera na carne ua ataque mutante dev 
astador.":PRINT:PRINT? A opcao ARQU 
IVOS lhe da us menu cos opcoes de LEITU 

RA, BRAVAMAD ETC para as-sia gravar o jo 

go em qualquer parte," 

2486 PRINT 

2487 PRINT" Esse adventure foi desenvo 
Ivido por: "s:PRINT" GUILHERME ARAUJO 

LIMA DA SILVA (C)1987 "; * 

2488 PRINT 


2489 PRINT:PRINT" Qualquer tecla pa 
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ra continuar" 

2490 L=INKEVS: JF L96)"" THEN RETURN EL 

SE 2498 

2588 " INSERIR 

2518 IREINSTR( "DISQUETE NO COMPUTADOR”, 

N$)z1F INGL THEN PRINT" IMPOSSIVEL 97"; 

BOTO 398 

2528 IF 0B(6)6-1 THEN PRINT"QUE COMPUT 

ADOR?” 

2538 IF 0B(13)6)-1 THEN PRINT"QUE DISQU 

EE 

2535 IF 151 THEN PRINTºJA ESTA INSERID 

0...":6070 390 

2548 IF OB(13)=-1 AND 0B(8)=-1 THEN PRI 

NTºOK, . «ESTA INSERIDO! *: 1S=1 

2558 GUTO 398 

2600 * MUTANTES 

2628 IF MIC THEN MEI :GOTO 393 

2622 INHB:FORI=LTONS: IF 08(1)=-! THEN 1 

MED 

2623 NEXT E 

2625 IF INB THEN GOTO 2808 

2630 IF IN=8 THEN PRINTºOS MUTANTES TE 

MATARAM POIS VOCE NAOTINHA NADA PAR 

A SER ROUBADO. ":60TO 1000 

2688 GOTO 398 

2700 * DEFENDER 

2781 INSINSTR( "DOS MUTANTES" ,N$): IF ING 
> THEN PRINT" IMPOSSIVEL — "5N65"777":6 
DTO 398 

27140 TF OB(12)6 THEN PRINTºDO QUEZ":6 
To 398 

2728 IF OB(10) 6-1 THEN PRINT"COM O QUE 
7":60TO 398 

Z74a FEL 

2781 PRINT"Voce e atacado por us mutant 
8... ":PRINT"VOCE O corta. ..ele gese e c 
ai!”;FORV=ITOLGOE: NEXT 

2742 PRINT"Vea outro,..Voce da um soco. 
«+":PRINTEle rodopia e cai!*:FORV=ITOL 
BOB: NEXT 

2743 PRINT"Ves o chefe cos usa espada. . 
«voce O ataca...ele defende e trope 
Cão e. "SFORV=1TOZOBE: NEXT 

2745 PRINT"Voce o mata friasente,ele so 
Ia ua horripilante hurro e abraca 
a morte!!! ";FORV=ITOSBO:NEXT 

OS TF MB THEN 08(12)=B:M6=B:60T0 398 
ELSE PRINT"Nos seus pes estao os objet 
05 saqueados, ":BEEP:BEEP; BEE: REEP 
2778 FOR I=1704 

271 OB(N(1))=L:NEXT 

788 08(12)=8:60T0 398 

2800 * ROTINA DOS MUTANTES 

2810 K=INT(RND(1)8NB)+L:IF OBIKJO-L TH 

EM BOTO 2818 

2828 PRINTºOS MALDITOS MUTANTES" :PRINTT 

AB(9); "ROUBARAN-LHE: "; 088 (K) :MeMeL SOB (K 
1=8:M(M)=k:MU=B:T=8:08(12]=8:6070 398 

29 * LIVRAR-SE 

2918 INEINSTR("DOS OBJETOS" ,N6): IF INCL 
THEN PRINTºLIVRAR-SE DO QUE722!!1*:607 

038 














215 8 

29146 JF LO=1 THEN PRINT“OUTRA 
03 

2928 FORI=ITONB: IF OB(1)=-1 THEN BJ=BJ+ 
1 

22 NEXT 

2925 IF RRO! THEN PRINT"AGORA?”:GOTO 3 
n 

2938 IF BJ=6 THEN PRINT "QUE OBJETOS?" 
36070 398 

2848 FORI=ITONB-1:1F 1=6 OR 1=7 OR 1=8 
OR THEN NEXT ELSE 08(1)=8:NEXT:LO=1 
2958 PRINTºOK, . ALGUNS DESAPARECERAM, MA 
S:DONPUTADOR LIGADO, LRANTO E RUBI NAO, * 
260TO 398 

3000 * ARQUIVOS 

318 CLSSOOLOR 1,11 

SOL IF LEFTS(OS,| 
“e” THEN FS="CAS: "si 
3815 ON ERROR GOTO 3608 

3028 PRINTTAB(5) "LOAD / SAVE / KILL 4 F 
IES" 

J838 LOCATEIA,6:PRINT" 1 SAVE" 

3840 LOCATESA,7:PRINT" 2 LOAD" 

3858 LOCATEIA,8:PRINT" 3 KILL” 

3868 LOCATEIS,9:PRINT' 4 FILES” 

3865 LOCATELS, 1O:PRINT 5 VOLTA” 

3878 LOCATELO, L7:PRINT"GUAL A SUA ECOLH 
A 

JOBO S$=INKEVS:IF S$="" OR S6C"1" OR S$ 
5º THEN 3880 

3090 ON VAL(S$) BOTO 3100,3208, 
2,378 

3108 * SAVE 

3118 OLS:PRINTTAB(14)"A SAVE 4º 

3128 LOCATEIO, 18: INPUT "QUAL O NOME";NA 
$ 

3138 NAS=FS+NAS+" ADV": OPEN 
PUT AS dt 


VEZ": 607 





*C" OR LEFTS(CS,1)= 





, 388, 340 


NBS FOR OUT 


3135 PRINTAS LV:PRINTAS LRSPRINTAS,LO:P * 


RINTL,A:PRINTAL  AUSPRINTAL, CU:PRINTEL, 
RRSPRINTAL, IS:PRINTAS BR 

3140 PRINTOL,NB 

3158 FOR I=ITONB 

3160 PRINTAL,OB(1) 

3178 WEST 

3180 PRINTAL MePRINTRS MTSPRINTAS,MU:PR 
INTAL PA: PRINTAL,L 

3184 IF MEO THEN 3185 ELSE FORI=1TOM:PR 
INTHLM(1) MET 

3185 CLOSE 4! 

3198 LOCATELT 28:PRINT*OK.* 

3199 JF IMEV$=** THEN 3199 ELSE GOTO 3 
om 

3208 " LOAD 

J218 OLS:PRINTTAB(14)"8 LOMD 4º 
3028 LOCATESO, 18: INUT "QUAL O NOME 
$ 

S230 NASeFSAMAd+” ADV VOPEM NAS FOR IN 
UT Asa 

3235 TNPUTAL LV INPUTAL, LR: INPUT LO: 
PUTA js TNPUTAL Us INPUTAS Is INPUTAL, 
RRsINPUTAL, IS: PUTAS BR 





3248 INPUTAL NE 
3258 FOR I=ATONE 

3260 INPUTAS,OB(1) 

2 EXT 

3274 INPUTAL Ms INPUT NT: NUTS 1 
PUTAS, INPUT, 

3272 JF MEM THEN CLOSEMI:GOTO 329:ELSE 
FORI=TOM: INPUTAL, (1): NEXT: CLOSER 
3274 FOR LEITOM 

3275 OB(N(U) )=8 

3276 NEXT:EOTO 3298 

3298 LOCATEL7, 20:PRINTIOK.* 

3299 JF IMEV$="* THEN 3299 ELSE BOTO 3 

am 

s308 IL 

330! TF Fe THEN 300 

3318 CLS:PRINTTAB(A4)"9 KILL 4 

3328 LOCATESO, 16: INPUT "QUAL O NOME" ;NA 

5 

3325 LOCATELT, 28:PRINTHOK,* 

ESSA NHG=NAS+? ADOPSKILL NAS 

3335 LOCATES7,20:PRINTºOK,* 

S346 IF IMEVS="" THEN 3348 ELSE GOTO 3 

n 

3408 “FILES 

SAL JF F=1 THEN 3800 

3418 CLS:PRINTTAR(13) "8 FILES 4º 

3428 LOCATER, SaFILES "8a 

3425 LOCATES7, 20:PRINTSOK.* 

3430 TF INEV$="" THEN 3438 ELSE GOTO 3 
om 

3580 * BEER 

3518 INB: INcINSTR(CELDXIRS M$) STF INCA 
THEN PRINTPNHO FAMA ME RIR !*sGOTO 398 

3528 JF OB(1)6-1 THEN PRINTºVOCE NAO P 

ODE BEBER O QUE NAO TEM. ..":GOTO 398 
3538 TF BROR THEN PRINT:PRINT" VOCE T 
OMOU UMA "OVERDOSE" DE ELIXIRS:PRINT" 
SUA GULA O MATOU !!*;GOTO 109 

3548 PRINT"OK! VOCE ESTA FORTE COMO UM 





So1B IF ERROSS THEN 3628 ELSE PLAY“VIS 

708": LOCATES, L6:PRINT"ARQUIVO INEXISTE 

NTE 11 1":R48=INPUTS (1) RESUME IODO 

3620 IF ERRC)S6 THEN 3430 ELSE PLAVºVIS 

708": LOCATE SO, 16:PRINT"NOME INCORRETO 
EU 1": R4$=INPUTS( 1) RESUME IDO 

3638 IF ERRC67 THEN 3640 ELSE PLAVºVIS 

0708" :LOCATEIO, LosPRINT"DIRETORIO CHEIO 

$=INPUTS( 1) :RESLME SODA 

3648 IF ERRO66 THEN 3650 ELSE PLAV"VIS 

O7C8":LOCATES3, 16:PRINT"DISCO CHEIO !!! 

*3R48=INPUTS(1):RESLMESD0 

3658 IF ERR568 THEN 3558 ELSE PLAY"VIS 

O708":LOCATEL!, 16:PRINT"DISCO PROTEGIDO 
FUtesRAg= INPUT (1) RESUME SODA 

Job IF ERROES THEN 3678 ELSE PLAY"VIS 

0708" :LOCATEIS, L6:PRINTPERRO DE E/S!!! 
“3R48=INPUTS( 1) :RESUMESOOO 

3678 TF ERRCO78 THEN 3688 ELSE PLAV"VIS 

CO7CB"ALOCATELS, LósPRINT"FALTA DISCO !!! 
"RAS INPUTS( 1): 

368 LOCATE 14, L6:PRINTPERRO !!!"sR4g=] 

NPUTS(1 ) RESUME SORO 





















BATTLE FOR MIDWAY 


TANIA ALVES 
MSX INFORMÁTICA 


Battle for Midway é um dos melhores jogos de 
estratégia feitos para o MSX. Nele se equilibram a veracidade do 
fato histórico real com o desafio de um excelente jogo. Tendo por 
base a verdadeira batalha travada entre americanos e japoneses, 
este jogo consegue aliar de forma supreendente estratégia e muita 
ação. 

Assim, consegue agradar tanto os aficcionados em 
jogos de guerra como os de qualquer outro tipo de jogo. Muito mais 
realista do que um jogo de tabuleiro, onde o jogador “todo -pode- 
roso” tem o total controle da situação. Em Battle for Midway, o 
computador permite que o elemento surpresa seja aproveitado, de 
modo que você possa provar que é um bom estrategista. 

Por outro lado, com a utilização dos recursos do seu 
MSX, o jogo também apresenta cenas de combate nas quais você 
participa e tem a chance de mostrar as suas habilidades ao se 
defrontar com o inimigo. 

Para conseguir jogá-lo até o fim, há a necessidade de se 
estudar muito bem o manual, sem o qual poucas coisas poderão ser 
feitas para se vencer a batalha. Nele estão explicados os diversos 
níveis de jogo, bem como as velocidades disponíveis do jogo e sua 
relação com o tempo real. Além disso, ele explica as diversas 
unidades aéreas e navais, com seus códigos, cores e relatórios, sem 
deixar de lado as explicações da movimentação da unidade, 
condições de vôo, reconhecimento, ataques aéreos e de superfície, 
etc. 


TÁTICAS DE JOGO 

Battle for Midway foi programado visando reconstruir, 
da forma mais real possível, as tensões e os imprevistos de uma 
batalha, além de desafiar a capacidade estratégica do jogador. Nele 
foram incluídos um relógio e limitações de combustível que 
tiveram por objetivo recriar as pressões que sofre um comandante 
durante um combate. As sequências de ação em tempo real são 
utilizadas para propiciar uma visão de batalha. Mas o jogo tem 
“armadilhas”. Por exemplo: o jogador nunca pode ter certeza de 
que um porta-aviões afundou mesmo que possa vê-lo em chamas. 

De outro lado, porta-aviões, que aparentemente saíram 
ilesos do combate, poderão afundar posteriormente. 

Osaviões de reconhecimento são usados para represen- 
tar os hidro-aviões que estavam baseados em Midway. Como são 
hidro-aviões, permanecem operacionais mesmo que a base aérea 
de Midway seja destruída. 

Algumas vezes são notadas falhas na área de reconhe- 
cimento. A itenção é de “punir” o jogador pelo uso de táticas 
inadequadas, mas também representa a confusão que resultaria de 
uma observação mal feita em uma situação real. 

As frotas japonesas têm a capacidade de sumir por 
algum tempo, depois de um combate de superfície. Este recurso foi 





APRENDA A JOGAR UM DOS MELHORES 
JOGOS DE ESTRATÉGIA PARA O MSX. 


utilizado para simular a dificuldade em se diferenciar um navio do 
outro, quando um grande número deles se encontram em uma 
mesma área. 

Algumas pessoas podem achar que os combates de 
superfície são injustos para com os americanos. Isto visa compen- 
sar a verdadeira situação dos americanos durante a guerra, quando 
as unidades de superfície japonesas apresentavam um desem- 
penho bom na guerra. Mais tarde, com a utilização do radar pelos 
americanos é que a situação mudou. 

Para sair vitorioso, você deverá, assim como os ameri- 
canos, afundar mais de dois porta-aviões para cada um dos seus que 
for afundado. O principal objetivo dos japoneses era o de destruir 
a frota de porta-aviões americana. Neste estágio da guerra, os 
Japoneses estavam preparados para perder dois porta-aviões para 
cada um dos americanos que conseguissem destruir. 

Muito mais poderia ser dito, mas a real dimensão deste 
jogo você vai perceber após jogar algumas partidas com o auxílio 
do seu manual. Boa sorte. 


Os Magos do software para MSX 
ENIGMA - STREAKER » GROTTEN - BLACK PIRATE + 
HUNDRA = CAPTAIN SEVILLA UI]  ARKOS VIVI + FANKY PANKY + 
ELITE - DESPERADO - ABADIA » TRANTOR = DUAD + MADMIX « BOP +| 
NEMESIS » LINKER'S SUPER STAR SOCCER » SIR FRED « INDIANA 
JONES » CARFIGHTER « VENOM « OCEAN "SUB CONQUERER + 
EL MAGO (EDUCAT.) * GAME OVER 1 &2 * ZAIDER » THE PUB + 


STAR FIGHTER - REX HARDEST + MUITOS OUTROS 


indiscutível 
— inigualável 
-. 24 horas + correio 
+ 2000 títulos. 
farta 
-. Brátis (peça o seu!) 
semanalmente 
mo. diversas 
que o Mago da Lazzarof. 
[Escreva-nos e receba um brindel Voçé só tem a ganhar! 


- APLICATIVOS/UTILITÁRIOS 

- LINGUAGENS/COPIADORES 

- DISCOYFITA Czs 800,00 

- DESPESAS POSTAIS 


28 300,00. 
Ca$ 1.000,00 4 
Cas 1.500,00 

.. 628 900,00 
C2$ 300,00 








Enviar cheque nominal cruzado a Cartos Henrique B. Magalhães, fornecendo o 
máximo de informações sbre seu equipamento e telefone para um eventual contato. 


Caixa Postal 1955 - CEP 20001 - Rio de Janeiro - RJ 
Tel: (021) 248-1575 
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BR 116 - A RODOVIA DA MORTE 


Navalhada Jones é um grande aven- 
tureiro que busca emoções e perigo incan- 
savelmente. Pensando nisso, o nosso herói 
foi assistir ao Grande Prêmio de Fórmula 1 
do Brasil e teve uma idéia repentina: roubar 
um carro e sair “rodando” pela BR 116 !!! 

Mas como? Navalhada Jones não 
sabe pilotar um fórmula 1 ! 

Então, você deverá ajudá-lo a con- 
duzir o carro. Lembre-se que Jones é 
“barbeiro”.Portanto, conduza com nervos 
de aço e bata recordes de permanência na 
rodovia. 


O PROGRAMA 

O programa é feito totalmente em 
basic e SCREEN 1; mistura textos, sprites 
e caracteres gráficos. 

A tela, ou melhor, a pista, se move 
de cima para baixo, obtido por um scroll 


invertido, dando a impressão de 
movimento. 

Oruídos do motor e da explosão são 
produzidos pelos comandos SOUND. 


COMO USAR 

As setas para esquerda e para direi 
tacontrolam a direção do carro e as setas pa 
ra cima e para baixo a aceleração. 

Os carros estão em ordem de difi- 
culdade: 
NIVEL 1: AIRTON SENA 
NIVEL 2: NELSON PIQUET 
NIVEL 3: MAURICIO GUGELMIN 


VARIÁVEIS 

CPS$( = nomes dos recordistas 
CD() = distâncias recordes 
DD() = auxiliar de CD() 
PPS( = auxiliar de CPS( 


GUILHERME A. L. DA SILVA 


KM = quilômetros rodados 
TS = tempo 

B1$ = bloco gráfico 1 

B2$ = bloco gráfico 2 
bloco gráfico 3 
intensidade do sound 





Y=Y do carro 

VL = sem verificação de trombada 
ET( = tabulação da estrada 
P=cor do carro 

PT = tempo de espera 

DF = dificuldade 

ES = sorteio 

PL = número do piloto 

I= contador 

C=stick 

AC = aceleração 

CX =X do carro em colunas 

EX = X do começo do acostamento 








JO REM--BR - 116 

2 REM-PARA MSI 

O ec a 

MO REM--BY GUILHERME 

SO REM--14/10/1988 

6 REM--GUARARAPES 

is Soa Fe 

88 DATASENA, 2808, PROST, LORB, BERGER, 458, 
PIQUET, 350, GUBELMIN, 308 

9 RESTORESO: FORJ=LTOS:READOPS(J) CD(J) 
:NEXT 

108 DIMET(SO) 

148 KEYOFF:SCREENI, ,B:KM=0:15=2:;B1$=0HR 
$(219):R28=CHRS (215) :B3$=CHRS (228) :G0SU 
ESSO 

120 DATABOBI LBA B4111110,81111110, 0001 
100, GOB IO, LIQLIGI!, LILLLIHL LiQLIOL 
1 

138 RESTORE120:FORH=BTO7: READPS :S$=5840 
HRS(VAL ("RE"+P$) |: NEXT 

148 SPRITES(1)=58 

168 S0=13:1=8 

178 X=128:Y=88:VL=1:FORK=1TO22:ET(K)=10 
:NEXT:G0SUB250;ET=10:GOSUBS1O 

188 COLOR 1,15,PC 

198 ES=INT(RND(-TIME)M(3-DF) )+DF 

288 JFES=1ANDETC2ITHENET=ET+L 

210 IFES=2ANDET>OTHENET=ET-L 

220 NEN+1:ET(N)=ET: IFN=1 LTHENGOSUBZSO 
230 IFNN=ITHENFORI=I LTOLSTEP-1:ET(1)=ET 
(1-1): NEXT;ET(1)=ET:GOSUR2SO 

248 GOTOL9O 

258 LOCATE,B:FORKI=1TOPT:NEXT 

268 [=1+[:LOCATEET( 1) :PRINTES 8284826; 
R1$;" ";R1$;806;608;ROS:NNE 1 :NB:C=STE 





CK(0):IFC=7THENI=1-8 

278 IFC=STHENK=3+8 

280 IFO=1ANDY)>BTHENY=Y-8;AC=AC+! :50=50- 
1:60SUBSIO 

298 IFO=SANDYCBOTHENV=V+8:AC=AC-1:S0=50 
+1:GOSUBS1O 

300 PUTSPRITEL, (X,Y) PC: IFOSRL INS 1GTHEN 
Va 

MO CX=INT(X/8-2):EX=ET(INT(Y/8)+1): FC 
XCEX+SORCNDEX+STHENGOSUBISO 

328 IFICLITHENSAO 

338 KMEKM+( (LO-PT)-DF)+ACSVI=POS(O) VY= 
CSALIN:LOCATESZ, L6:PRINTUSING” HH" ;K 
My: PRINT" Ka ":TS=TS-.05:LOCATES, 18;PRI 
NT"CRONOME TRAGEN" :LOCATE 14, 28:PRINTUSIN 
64"; TSSLOCATEVE,WY 

331 IF 7558 THEN RETURN ELSE GOTO 341 
348 GOTO2HM 

341 SOUND? ,7:SOUNDE, 15:FORI=1TOLBOO:NEX 
T:SOUNDS,O:PUTSPRITEL, (-8,-8),8 

342 CLS:LOCATES,B:PRINT "Acabou o seu te 
apo... ":LOCATES, 18:PRINT"Percorreu:";kM 
;º ka. “:LOCATET,21:PRINT"Pressione Espa 
co":K$=INPUTS (1): 1FK$C)" "THENSAZELSEIO 
8 

358 REMBATEU 

368 TFVLCOBTHENRETURN 

370 PUTSPRITEI, (-8,-8) ,8:LOCATECK, INT(Y 
/8):PRINT* *:SOUND?,7:SOUNDE, 15:FORI=1T 
LOBO: NEXT: 

388 SOUNDS, 8:CLS:LOCATET, 8: PRINT"Voce c 
olidit (CATES, 18:PRINT"Percorreus* 
Mg" OCATE7 21: PRINT "Pressione E 
spaco":K$=INPUTS( 1): IFK$C)" "THENSSO 
398 GOSUBA28:FORI=1TOS: IFKM=CD( 1) THENG 



















OTOA0A:ELSENENT:GOTOMO 

488 FORNELTO6: PPS (N)=CP$(N) :DD(N)=CD(N) 
NEXT SFORNE TOS 208 (N+1)=PP$(N) :CO(Ne1) 
=DD(N) NEXTSLOCATER, L73PRINTI;*8 NOME 
33 INFUTCPS(1) 3CD( 1 )=KN:605UB42O 

410 LOCATEB, 24:PRINT" JOGA DE NOVO 7º:K6 
=INPUTS(1): LFK$0 Nº THENGOTO LLGELSEEND 
420 CLS:PRINTTAR(9) "CAMPEONATO": LOCATE 
5,6:PRINTNOME” ;SPC(8) "DISTÂNCIA 
I=4TOS:LOCATES, 184] sPRINTOPS(1);sLOCATE 
18, 10+L3PRINTUSINSSHASM?CD(1):ENEXTSR 
ETURN 

430 RENPAINEL 

440 FORI=OTOLH:LOCATER, 1: PRINTSTRINGS(2 
9,828) :NEXT:FORI=12TO2L:LOCATER, LsPRINT 
STRINSS(29 818) :NEXTSLOCATER, 11 :PRINTST 
RINOS(29,838) 

458 LOCATER, 19:PRINTRIS; "1-SENA 2-PIBUE 
T3-GUGELMIN"jaPB=INPUTS (1) sPL=VAL (PS) 

468 IFPLCIDRPL)STHENASO 

STO IFPL=LTHENPS=" AIRTON SEMA = MACLA 









488 IFPL=2THENPS=" NELSON PIQUET - LO 
TUS *sPC=10:PT=2:DF=0 
THENP$="MAURICIO GUGELMIN - M 


588 LOCATER, 19:PRINTSTRINOS/(58,816) LOC 
ATEZ, 12:PRINTPS:LOCATET, L4sPRINT" KM PE 
RCORRIDOS *sLOCATELL, L6sPRINTUSING" 444 
AESA EPRINTE Ko 

S8L LOCATES, 18:PRINT"CRONOHE TRAGEM" LOC 
ATELA, 203 PRINTUSING4 8º; TS:RETURN 

S1B SOUND, 254:SOUNDO, 1:SOUNDL, SO: SOUND 
b,28:SOUNDE, 16: SOUNDI1, 255:SOUNDI2, 1:50 





UNDIS, L3:RETURN 
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Lisa 5] 
JOGOS & HIGH SCORES 







































































SCORE| RECORDISTA | JOGO SCORE| RECORDISTA 
ALIEN 8 LAZY JONES 
ALPHA BLASTER LES FICLES 
BARNSTORMER LE MANS 
BATTLESHIP CLAPTON MANIC MINER 
BEAMRIDER MAXIMA PEDRO MARIANI 
BLAGGER MONKEY ACADEMY ROBERTO T F MORAES 
BOOM MONPIRANGER 
BOULDERDASH 
BOUNDER BRUNO MURRAT 
BOXING 10 
BUCK ROGERS 310.900 
CENTIPEDE 53.795 ALEXANDRE C GREIG y 
CHILLER 42.201 215.700 
CHORO Q 42.380 14.919 |ROBERTO T F MORAES 
CIRCUS CHARLIE 1.198.460 24.205 
DISK WARRIOR 1.400.000 2.800 
DOGFIGHTER 10.100 1.240.680 
ELIDON 94% 199.000 
ERIC AND FLOATERS | 1.844.160 289.990 ALBERTO G SANTOS 
FINDERS KEEPERS 18.323 8.434.070 
FIRE RESCUE 29.540 PRICE MAGIK 12% 
FLIGHT DECK 7.210 | MARCOS A LACERDA | PYRAMIDWARP 820.758 
FRUIT FRANK 21.000 RIVER RAID 73.450 
GALAGA 452.200 ALEXANDRE C GREIG | ROAD FIGHTER 986.675 
GHOSTBUSTERS $999.900 ROLLER BALL 4.580.120 BRUNO MURRAT 
GOLF 28 SASA 200.195 ALBERTO G SANTOS 
GRIDTRAP 558.120 SCION 95.300 
GUNFRIGHT $150.000 SOCCER 40-0 
HEIST 384.201 SPACE WALK 1.846.200 
HERO 692.120 SPOOKS AND LADDERS| 189.930 
HIGHWAY 339.360 MARCOS A LACERDA | STEPUP 60.250 
HOOPER 100.050 «STOP THE EXPRESS 7.360 
HOTSHOE 187.575 PEDROM FRACT | SUPER COBRA 501.100 
HUNCHBACK 2.700.000 SWEET ACORN 6.438.460 
HUSTLER 8 ROBERTO T F MORAES | TENNIS 6060 
HYPER RALLY 310.100 THE SNOWMAN 36.510 
HYPER SPORTS I 2.050.800 THE WRECK 23.975 
HYPER SPORTS IL 500.500 TIME BANDITS 9.990 
HYPER SPORTS III 65.532 TIME CURB 274.040 
HYPER VIPER 127.500 TIME PILOT 689.000 
INTER. KARATE 999.999 TRACK AND FIELDI 266.540 
JET FIGHTER 214.950 TRACK AND FIELD IH 500.300 
JET SET WILLY 120 TURMOIL 12.520 
KINGS VALLEY 5.642.600 VACUMANIA 22.340 
KNIGHTMARE 478.200 VALKYR 47.205 
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E] 
JOGOS 


NEMESIS 
KNIGHT NINJA 


TIPO- Aventura oriental 
APRESENTAÇÃO- 10 
GRÁFICOS- 9 

SOM-9 

INTERESSE-10 
NÚMERO DE BLOCOS- 3 
TOTAL GERAL-9.5 


SKY VISION 

TIPO- Espacial de ação 
APRESENTAÇÃO- 7 
GRÁFICOS- 8 

SOM-7 

INTERESSE- 9 

NÚMERO DE BLOCOS- 3 
TOTAL GERAL- 7 


BOP 


TIPO- Aventura infantil 
APRESENTAÇÃO- 7 
GRÁFICOS- 7 

SOM- 8 

INTERESSE- 8 

NÚMERO DE BLOCOS- 3 
TOTAL GERAL- 7.5 


MAD FOX 

TIPO- Espacial de ação 
APRESENTAÇÃO- 7 
GRÁFICOS- 7 

SOM-7 

INTERESSE- 7 

NUMERO DE BLOCOS- 3 
TOTAL GERAL- 7 


KIMPO FIGHTER 


TIPO- Aventura oriental 
APRESENTAÇÃO- 8 
GRÁFICOS - 9 

soM-8 

INTERESSE- 8 

NÚMERO DE BLOCOS- 1 
TOTAL GERAL- 8 


52 CPU 











EMILIO BUTRAGUENO (FUTEBOL) 


TIPO- Jogo de Futebol 
APRESENTAÇÃO- 10 
GRÁFICOS- 9 

SOM-7 

INTERESSE- 9 

NÚMERO DE BLOCOS- 5 
TOTAL GERAL-9 


SASSÊL 


LADY SAFARY 


TIPO- Aventura na Selva 
APRESENTAÇÃO- 8 
GRÁFICOS- 8 

SOM- 6 

INTERESSE- 7 

NÚMERO DE BLOCOS-4 
TOTAL GERAL-7 








CAVERN OF DEATH 


TIPO- Aventura e ação 
APRESENTAÇÃO- 7 
GRÁFICOS- 7 

SOM- 7 

INTERESSE- 7 

NÚMERO DE BLOCOS- 3 


TOTAL GERAL. 7 





MINDER 

TIPO- Adventure animado 
APRESENTAÇÃO- 10 
GRÁFICOS- 8 

SOM-8 

INTERESSE- 8 

NÚMERO DE BLOCOS- 7 
TOTAL GERAL-$ 








CLUARAFEr H 

EATED ey Leon crie TI DIES 

DR TPEGDUCED Es” LLOVO SHIRLEY & GEORGE TAVLOR 
Bm IPROGRAM:DOM PRIESTLEY GRAPHICS:ED HICEMAM 





HUMPREY 

TIPO- Jogo de estratégia 
APRESENTAÇÃO- 10 
GRÁFICOS- 9 

SOM- 8 

INTERESSE- 9 

NÚMERO DE BLOCOS- 6 
TOTAL GERAL-9 





CPU 53 





508 FELINO = (cj Esfera 
* Copyright by SChan. 1988 


INICIALIZAR 


108 CLEARSOB:COLORIS,4,4:HEVOFF:SOREENI 
2, 8:MIDTHSZ:CSRND(TIME) 

FL 

28 “ DEFINIR BLOCOS GRAFICOS 

13 

148 FORI=384TO9B3UA=VPEEKCL)SBEMORA/2:U 
POXEL,B:NENT 

158 DATAL7O,85, 170,85, 178,85,170,85 

168 DATAZSS,239,219, 189, 89,255, 83,2 
178 DATASO, 90, 189,24,255,24,126,153 

188 DATAG6, 189, 29,165, 129, 153, 129, 126 
198 FORI=1536TOLSA3:READA: VPOKEI A:NEXT 
:FORI=L6MBTO1607:READA:VPOKEI, A:NEXTSFO 
RI=1654701679:READA:WPOKEI, A:NEXT 

288 VPOERD1S,97:WPOKER2L7, 196: WPOKEBZL 
9,168 

2a 

mA BONBEIRO 

2a 

248 DATABRBBABAL | BONGRÕA 

258 DATABRBRBN 00 L08RGOA 

268 DATABRGBI LL LL 1LIBADO 

279 DATADRGRDR O ORGRDA 

288 DATABRADR BOL A0AGOR 

290 DATANBRORONAL LOOBONDA 

308 DATABBOA! ! 120! 1 L0B0O 

310 DATADBELAL GADO LOLOM 

320 DATAGRO!O1ORDO! A! OR 

338 DATADRGLO10R0R 181008 

38 DATAGBAIOS! 11 1404B0A 

359 DATADRA LO 10008 !O0ROR 

368 DATABBRBR 1111 1B0BRA 

370 DATAGRONA! 100! LOOHOO 

388 DATAGRRBA! LO 1 EMANA 

398 DATAGROL LI LBGL LL LDOR 

ARO FORI=BTOLS:READAS: B$=BS+CHRS (VAL (Me 
RMALEFTS(AS,8) ))2CS=CSCHRS (VAL (P4B" ART 
GHTS (48,8) )):NEXT:SPRITES(0)=R$+08 

ste * 

420 “ DEFINIR VALORES INICIAIS 


54 CPU 


82'0 CENÁRIO 

ama 

ABB PLAVAS+BS:PLAVAS R$: TFF) ISTHENE=1S: 

Esig 

AGO CL52X532:=159:LOCATESZ, AO:PRINTENT 

VEL";NSFORI=0T02008:NEXT:FORI=ATOLSSTEP 

SsLOCATEZ, 13PRINTOMRS (280) SPC(26) jOHRS 

(200) PRINT; “;STRING$(3,280) ;SPC(24); 

STRINGS(3, 228) 

588 PRINT" *;STRINGS(2, 208) ;STRINGS(12, 

192);" ";STRINGS(12, 192) ;STRINGS(2, 208 

JSPRINT" *:STRINGS(13,280);" *;STRINO 

$(13,200) :PRINTTAB(13) STRINGS(2, 200) ;º 
"STRINGS (2, 200) NEXT 

SLB FORI=64010767:WPOKEBASE (5) + ,219:NE 

” 

520 FORI=2T018:LOCATESS, :PRINTSTRINGS( 

2,192) :NEXTALOCATEIS, 19:PRINTSTRINGS (6, 

192) 

a 

Me PROCESSAMENTO 

E 

568 INTERVALON:GOTOGBA 

SO ASSTICK(O) sB=(V+1 )84+N/8: IFA=3ANOIC 

TRMANDNPEEK (BASE (5) 4842) €)1928NDWPEEK(B 

ASE(5) 48434) O 1927HEN=J48:60T0598 

SBB IEAFTANDX)LSANDVPEEK (BASE (5) 8-1) 

192AMIVPEEK (BASE (5) BH3L) (O L92THENI=S-8 

590 JFNG=16ANDO-1THENI=32:v=v-40 

SMB 1FX)=224NOYCISSTHENI=208: = 440 

618 INTERVALSTOP:C=RMD(1)815:IFOC.5THE 

ALOCATEINT(RND(1) 61144) L(INT(RND(1)84+ 

1))3PRINTOHRS (289) ;ELSEIFC(ITHENLOCATE! 

NT(RND(1)811+47),L(INT(RND(A )2461) ):PRI 

NICHRS(209) ; 

628 C=RND( 1) 815: JFCCETHENLOCATEINT(FND( 

LJLLA4) L(INTIRND(A )84+1)):PRINTOHRS(2 

08) ;ELSEIFC(FTHENLOCATE INT (RND(1)$41+17 

)sLCINTIRND( 1) 2441) ):PRINTOMR$( 208); 

630 INTERVALON 


CAD IFVPEEK (BASE (5) +8+33)=209THENVPOKER 
ASE(S)+B+33, 32: BEEP:5=S+1 :GOTO6BO 
658 JFVPEEK(BASE (5) +B+32)=209THENVPOKER 
ASE(5)+B+32, 32: BEEP:5=5+| :GOTOSGO 
660 IFUPEEM (BASE (5) +R+33)=288ANDS>ATHEN 
VPOKERASE (5) +8+33,32:5=8-1;PLAV"CA2"ELS 
EIFVPEEN (BASE (5) +B+33)=206ANDS=BTHENG9O 
:60T056% 
670 IFVPEEK(BASE (5) +B+32)=208ANDS)BTHEN 
VPOKEBASE (5) +B+32,32:9=5-L;PLAY"CIZ"ELS 
ETFVPEEK (BASE (5) +H+32)=206ANDS=BTHENS9O 
688 PUTSPRITES, (X,Y) 1, 8:GOSUB7BO:GOTOS 
n 
690 INTERVALOFF:LOCATES!, 1O:PRINT"Fim d 
e Jogo” 
TOR PLAVAS+BS:PLAYAS ,B$:FORI=BTOZODB: NE 
XT3LOCATES, Le:PRINT" Novamente (S/N)! 
748 IFINKEV$C""THENTIO 
T28 AS=INKEVS: [FAS="S"ORAS="5"THENPUTSP 
RITEB, (-32,-32) :GUTOMBELSEIFAS="N"ORAS 
="nºTRENSOREENO: ENDELSE720 
738 INTERVALSTOP;S=5-13PLAY "al?" 
748 IFSCBTHENGSBELSET=T+1 :GOSUB7BA: INTE 
RVALON:RETURN 
758 * 
0 ' LIFE & TIME 
TR 
768 INTERVALSTOP:LOCATEB, 22:PRINT "Life" 
384" Tige!;T;" Nivel"gN 
78 
BOM * PASSAGEM DE NIVEIS 
ato 
828 IFT=10THENFUTSPRITEO, (-32,-32):1=0: 
NEN+I:E=E+,375:F=F+.5:FORI=DTOLOOO:NEXT 
«BOTOASA 
836 INTERVALON:RETURN 
“ 09,85 - MUSICA 
“S-LIFE T-TIME 
“ E,F - NUMERO DE INSETOS 
“N- NIVEL DE J060 
L(1-5) - VERTICAL 
“R - VALOR DAS SETAS 
“B- VALOR NA VRAM DA PO- 
SICAO DO BOMBEIRO 











18 REM — Jogo da Mesoria 
28 REM —- Guilherae A. L. da Silva 

— 22/06/88 

GUARARAPES - S.P. 

58 REM —— Para a linha MSk 
68 CLEAN: JO 
78 SOREENI, B:KEY OFF:COLOR 15,12,18 
8a STOP ON 
98 ON STOP GOSUB 1408 
108 REM JOGO DA MEMORIA 
118 GOTO 390 
128 DIM C6(16) A8(16) B$(16) FS(8) 
138 FS(1)=DHR$CA )ACHRS(76):FS(2)=DHR$(A 
JACHRS (66) :FS(3)=CHRS( 1 JACHRS(69) :F8(8] 
=DHR$(L)+CHRS(78) 
140 F$(5)=OHRS(1)+OHRS (67) :FS(6)=CHRS( 1 
JACHRS (68) :F$(7)=CHR$(1)+CHRS(79):FS(8) 
=OHRS(L)+CHRS(75) 
158 SCREENT 
178 PRINTTAB(5)" Jogo da sesoria * 
198 LOCATE 0,5 
280 PRINTTAB(B)"t=1=1=1-12 
218 FORO=1TOS 
228 PRINTTAB(B)"! tt toe 
230 PRINTTAB(O) "t=t-t-t-tr 
248 NET 
258 PRINTTAB(B)"! te 
288 PRINTTAB(B) t=+-+-+-+" 
278 LOCATER, 15:PRINT"Qualquer tecla par 
à comefar.* 
280 AS=INKEYS: IF A$="* THEN GOTO 288 
290 LOCATE 6, 16:PRINTTAB(S); “Estou cal 
ulando":GOSUR 1240 
398 FOR [=1 TO 8 
318 AINT(L6AAND(-TIME)+1) 
320 IF AOB THEN 33 ELSE 310 
338 JF BS(AJO"" THEN 318 ELSE BS(A)=FS 
(0 
3HO REINT(L6SRND(10)+1) 
350 IF BOA THEN 368 ELSE 340 
360 IF ES(BJO”" THEN 348 ELSE BS(B)=FS 
[u] 
se NET 
388 2=0:FORI=1 TO 16:08(7)=B5(1):2=244: 
MEXTSRETURA 
398 REM 
408 GOSUB S3O:REM N,J0G. 
418 GOSUR 718:G0SUR BOM:REM TELA 
420 GOSUB 860:REM INICIO 
425 BOTO 42 
A3E TF PILDP(2) THEN JOS 
448 JF P(ZDP(L) THEN JOE2 
458 FORU=ITOLBOO;NEXT:OLS:LOCATES,21:PR 
INTTAB(S)" Jogo da aesoria *:PRINT:PRIN 
TEPRINT:PRINT:PRINT 
468 JF PIZ)=P(L) THEN PRINTTAB(£O) ENPA 
TE!!!";60TO 499 
478 PRINT"Vencedor (a); *;NS(0) 
480 PRINT:PRINT"COA O PLACAR DE" ;P(JC); 
PARES, 
498 PRINT:PRINT:PRINT:PRINT:PRINT:PRINT 
:PRINT:PRINT:PRINT:PRINT 


JOGO DA MEMÓRIA 


588 GOSUB1248:LOCATEB, 19:PRINTºJOGAR DU 
TRA VEZ? (S/N) ":A8=INEV$:IF Ag="" THEN 
see 

518 TF ASG)"S" THEN END 

520 OLS:RIN 

538 REM N$ JOGADORES 

seas 

568 PRINTTAB(5)" Jogo da memoria * 

588 PRINT:PRINT"Quantos Jogadores*;: IN? 
um 

598 PRINT:PRINT:PRINT"Qual 0 nome do jo 
gador 1": INPUT NS(1) 

680 IF J=1 THEN PRINT:NS(2)="Computador 
—HSX": GOTO 628 

618 PRINT"Gual o nose do jogador 2º:INP 
UT N$(2):G0TO 640 

628 PRINT"Gual o nLvel?”;PRINT:PRINT:PR 
INTTAB(5)"0,Principiante":PRINTTAB(5) “3 
«Aprendiz":PRINTTAB(S) "6.Mestre" :PRINTT 
AB(5)*9.Profissional":PRINTTAB(5)"12,Co 
bra"sPRINTTAB(5)"15,Expert" 

630 PRINT: INPUT"Escolha:";BN 

648 GOSUB 128 

658 LOCATEB, 15:PRINTSPC(32) 

668 LOCATE 8,15 

678 PRINT NIS,NZS 

688 PRINTUSING"Placar :88";P1; 

698 PRINTUSING" Placar: 

788 RETURN 

748 REM TELA 

TZ COLOR 15,4,10 

738 LOCATER, 18:PRINTSPC (64) :LOCATES, 18: 
PRINT" Preste atencao nos pares.” 

748 IF BND=15 THEN RETURN 

758 NEB:FOR Lk=9 TO 15 STEP 2 

768 FOR LY=6 TO 12 STEP 2 

TTR LOCATE LX,LY:PRINTAS(N) 

788 Nome 

798 NEXT: NEXT:FOR TP=ITOSBMO:NEXT:RETUR 
N 

BOS NEB:FOR Li=9 TO 15 STEP 2 

816 FOR Ly=6 TO 12 STEP 2 

B208 N$=HEXS(N) 

B3E LOCATE LU LV:PRINTAS 

B4O Nel 

858 NEXT:NEXT;RETUAN 

B6B REM JOGO 

B78 LOCATER, 18:PRINTSPC(64) :LOCATER, 18 
888 PRINT "Jogador" ;J0;*(2 nueros)*;: IN 
PUTHS:NS=HIDS(H6,2,1):05=MIDS(H$,1,1) 
898 IF H6="" THEN G78 

08 TI=VAL ("RH "+06) 

LO TP=VAL ("UA sH6) 

928 ON TI+! GOSUB 1068, 1098, 1108, 1110,1 
128, 11381140, 1158, 1168, 1178, 1188, 198, 
1208, 1218,1228, 1238 

30 Pl=I:Py=y 

SMB ON TP+ GOSUR 1208, 1098, LIDO, 1119, 1 
128, 1130, 1148, 1150, 1168, 1178, 1189, 1198, 
1289, 1218, 1228, 1238 

958 LX=:Ly=y 

968 PLAY"VISLIGEFG" ;LOCATE PX,PY:PRINTA 


s(TI) 

78 LOCATE LX,LY:PRINTAS (TP) 

988 IF TI=TP THEN LOCATER, 18:G0TO 680 

998 TF AS(TIJ=CS(TI) AND AS(TP)=OS(TP) 

Goro tese 

1800 TFAS(TI)=AS(TP)THENLOCATEO, 19:PRIN 

TºO jogador" ;J0;"conseguiu!:P(JO)=P(JO) 

+L:LOCATEB, L6:PRINTUSING"PLADAR:49! ;P( 1 

(2):A8(T 

AS (TP)=* ":D$(TI)=AS(TI):CS(TP)= 

AS(TP): IFP(1)+P(2))=BTHENGOTOSI0ELSEPLA 

YºVISLBCOL 16EFELGAR" 

1810 FORI=1TOLGO:NEXT:GOSUB gaa 

1828 JF J02 AND J=! THEN J0=1:GOSUE 87 

1) 

1838 TF JO! AND J=t THEN J0=2:60SUB 12 

TR:60SUB920 

1048 TF J=1 THEN RETURN 

4058 IF JO=1 THEN J0=2:6070 870 

1868 TF J0=2 THEN 001 

1670 RETURN 

1088 4=9:Y=6:RETURN 


H7O K=13:Y=8;RETUAN 
1188 X=13:Y=10:RETURN 
1198 J=13:y=12:RETURN 


1248 REM MUSICA 

1258 PLAY"VLSTI2OL6MSOBOS! LOSEEFGGFEDOC 
DEEDDEEFGSFEDCCDEDCOL ADECDEFECDEFEDCDGE 
EFOBFEDLSOCDEDOC" 

1268 RETURN 

1278 F=0:REM JOGADA COMP, 

1288 F=B:FOR K=1 TO BN 

1298 LOCATER, LB:PRINTSPC(64) 

1308 RI=INT(SSERND(1)) 

1318 TF BND2 ANO CS(RI)=AS(RI) THEN 138 
8 

1320 RP=INT(LSERND(-TIME) ): IF RP=RI THE 
Na 

1338 IF F)RNEZ THEN 1388 

1348 TF BND2 AND CO(RP)=AS(RP) THEN F=F 
+1:BOTO 1328 

1358 TF AS(RI)=AS(RP) THEN L380 

1360 IF BNEG THEN 1378 

1370 NEXT k 

1388 LOCATER, 18:PRINT"Eu joguei 05 nhme 
ros: ";HEXS(RE) ;HEXS(RE) 

1390 TI=RIsTP=RP:J=1:J0=2:RETURN 

1408 SCREENS, L:PRINT"DESISTIU, E O FI 
M!"KEY ONCOLOR 15, 1,1:END 








* ROWLING - (c) by Esfera 
* Copyright 1988 by SChan 


“INICIALITA 


88 CLEARSOO:COLORI , 18, 10:KEYOFF :SOREENT 
3 BE NIDTHSZ: DEFUSR=4HA Ls DEFUSRI=4H42 
a 

188 ' DEFINE BLOCOS 

tg" 

128 BEEP:PLAY"L7VISOMDCDDOCOSEBOAFEFFGF 
DFEFFGFDDFFGEECFF* 

138 FORI=384TO9B3: VPOKEI, VPEEK(T JORVPEE 
K(T)/2:NEXT 

148 DATAS7E,85,178,85,170,85,178,85 
158 DATAL,3,6,12,25,51,103,287 

148 DATALZ8, 192,96, 48, 152,204,238,243 
178 DATAZOS, 195,13, 165,165,153,195,255 
188 DATAZSS, 255,255,255,255, 195, 185, 165 
198 DATALOS, 185,195,255,255, 195, 185,165 
200 DATAL6S,185,195,255,255,255,255,255 
248 DATAZSS, 255, 255,255,255,255,255,255 
228 DATADSS,153,153,153,153,153,153,153 
230 DATAZSS,249,249,249,249,249,289,249 
248 DATA6O, 126,251,249,249,251,118,68 
258 DATAS, 16, 16,16,16,56,124,254 

268 FORI=1472101479:READA:VPOKEI A :NEXT 
278 FORI=1536T0L59L :READA: VPOKEI, A:NEXT 
288 RESTOREZLO:FORI=1680TOL623:READA: VP 
OKEL,A:NEST 

298 FORNEBTO! :A$="":FORI=BTO7:READA:AS= 
AS+CHRS (A) :NEXT: SPRITES (N)=AS:NEXT 

308 VPOKEB2IS, 113: VPOKEBZLO, 11 1: VPOKERZ 
17,31: WPOKEB218, 22: VPOKEB219,281 

se 

328 * VALORES INICIAIS 

ma 

340 B=8:0-28:P=8:5-0 

3a 

%B' DESENHA TELA 

m' 

388 A-USR(B) :LOCATEO,O:PRINTSTRINOS (21, 
184) ;FORI=BT08:PRINTCHRS( 184) ;SPC(19);€ 
HR$(184);NEXT:PRINTSTRINGS (21,184) 

398 AS=STRINOS(7,219):LOCATEL, L:PRINTAS 
;STRINGS (5,288) ;48:LOCATEL, 2:PRINTAS;CH 
R$(202) STRINGS (4,281) AS 

480 FORI=5TOL7STEPZ:LOCATES :A=(28-(142) 
)/2:PRINTSTRINGS(A, 219) ;CHR$( 192) ;STRIN 
B$(1,198) ;CHR$ (193) ;STRINGS (A, 219) :NEXT 
418 LOCATE, Li: PRINTCHRS( 194) ;STRINGS(19 
+219) STRINGS (12,184) ;"course Pp 
omer";CHR$ (184) ;SPC( 18) ;CHR$( 184); 

428 PRINTSTRINGS (32, 184); :A$=CHR$ (184) + 
STRINGS (30,219) +CHRS( 184 ) :B$=CHRS (184) + 
STRINGS (38, 198) +CHR$ (184) 

438 FORI=0TOL:PRINTAS; :NEXT:FORI=0TO3:P 
RINTES; :NEXT:FORI=BT0L:PRINTAS; :NEXTSFO 


56 CPU 


BOLICHE 


RI=TO4TO76T:WPOKEBASE(5) 1 , LBA :ENT:LOC 
ATER, 

440 LOCATEZE, 16:PRINTONRS(195) ;OHRS (194 
J:LOCATEZT:PRINTONRS (194) ;OHR$ (196) OR 
suu94) 

458 LOCATEZT:PRINTOMRS(194) OHR$(196]3C 
HR$(19) ELOCATEZE:PRINTONRS(197)508RS( 1 
94) 3OSUBLBSB:AFUSRI (8) 

460 FORI=OTOZ:PUTSPRITEI, (-32,-2) :NEXT: 
LOCATEZ!,12:PRINTSPO(18); 

AO IFIMEVSO"* THEO 

Pa 

MO ESCOLHA RUMO 

Ee) 

SH C=8:LOCATEIS, L2:PRINT" *:LOCATES, 12 
PRINT" C"3FORI=BTOLSOSTEPZ:PUTSPRITEL, ( 
1,87),4,1 

528 IFIMEYS=* >THENSHO 

530 NENT:FORI=152TOBSTEP-2:PUTSPRITEI, ( 
KM), 

SH TFINEVS=* *THENSES 


«558 NEXT:GOTOS1O 


568 FORI=BTOLOOO: NEXT: IFKCBAANDK)76THEN 
04 

578 TF (M=76ANDID68) DR(K)=BAANDX 92) THE 
NC=3 

588 TF(X<=58ANDX>68 JOR (J)=92ANDX<1BB) TH 
ENC=2 

590 TF(N<=5BANDI)=52) ORI X)=LBBANDXS=108 
JTHENC=I 

680 IFXDBATHEND=158:1=,5 

618 IFIC7STHEND=128:7=-,5 

628 LOCATES, 12:PRINT” *:LOCATESS,12:PRI 
NT 

630 IFINKEVSC)""THENSSO 

a" 

68 ESCOLHA PONER 

sa 

670 F=B:FORX=BTOLS2STEP2:PUTSPRITES, (X, 
87) LL: IFINKEVS=" "THENTOS 

688 NEXT:FORX=152T08STEP-2:PUTSPRITEL, [ 
X,87),1,1:IFINKEYS=" "THENTOS 

698 NEXT:GOTO678 

700 IFK)L4BTHENF=b 

748 1FXD13BANDX=C148THENF=S 

728 IFX)LZBANDX=CI30THENF=4 

TSM IFXDLLBANDX=CIZETHENF=S 

748 IFX) LOBANDI=<1 LOTHENF=2 

758 1FXD=90ANDX=CLBBTHENF= 1 

Te * 

Te ' PROCESSAMENTO 

7a 

798 TFC=4AND(F=0RF=5) THENV=138: 1=88:E 
=4:M6=" Strike*:N=18:G0T0920 

880 IFO=4AND(F=40RF=3) THENY= 138: 1=88:E 
=2:M8="8 Bottles*:N=8:G0T0920 

BIB JFC=3AND(F=50RF=5) THENV=138+244:Y1= 
B0+744:E=4:M6="7 Bottles":N=7:G070928 





BO TF(C=30ND(F=40RF=3) JOR(O=2AND(F=60R 
F=5) JTHENV=1 38648: VI=B0+788:E=3:H6="6 
Bottles*:N=6:6070928 

B30 IFO=HAND(F=20RF=1 ) THENY=138:41=88: 
=12E=4:M8="5 Bottles":N-5:60T0928 

840 IFO=2AND(F=30RF=4) THENY=138+THB:VI= 
BO+748:=2:46="4 Bottles":N=4:6070928 
850 IF(C=3ND(F=20RF=1) JOR(C=1ANO(F=50R 
Feb) )THENV=1384T HO: V1=BR47H10:E=32h6=" 
3 Bottles":N=3360T0928 

860 TF(O=20ND(F=10RF=2) JOR(C=1AND(F=30R 
F=4) )THENV=L38H748:VI=004TH93E=1.5:N6=" 
2 Bottles*:N=2:60T0928 

BO IFO=LAND(F=1ORF=2) THENV=L3B6TALA: VI 
=B0+18103E=loM6=" 4 Rottle":N:1:60T0920 
BO Y=138:FORI=BTOZI9STEPF/2+1:PUTSPRIT 
EB, (1,Y),1,0:PUTSPRITES, (88-(138-4),78- 
1/5),1,8 

BRO Ye 42; TFI=, STHENIFID=DTHENT=D 

908 IFl=-.STHENIFYC=DTHENH=D 

918 NEXT:60T0978 

928 FORK=BTO22ASTEPE:PUTSPRITER, (1,1 
A: PUTSPRITES, (V1,78-K/4.5), 1,8:NEXT:PL 
ANºs1Ba40At 148] 12cec feddco” :P=P4N:S=SM 
938 LOCATEZA, 12:PRINTHS 

ma 

958 NOVO NIVEL 

EE 

978 IFB=LTHENB=8: GOTOSBBELSER=B-1:BOSUB 
1858:FORI=BTOLBBR:NEXT:GOTO46O 

980 BEEP:PLAY"VIZA IOCDEOSCDEUSCDEDOODER 
OSOOOACDEDCOSBRO4OC* 

99% GOSUBLBSA; IFP)=THENLOCATES, 28:PRIN 
TOU IFICATION REMOHEDsFORI=0T02008: 
EXT:LOCATE6, 28:PRINTSTRINGS (21,219) +00 
+10:P=0:B=BELSELI0O 

1008 1FO)SOTHENB=B+[ (0-58)/10) 

1810 GOSUBLOSA:GOTOMA 

1020 * 

188 "PLACAR 

10 * 

1858 LOCATEZ2, BsPRINT" Bowling 1º;LOCATE 
21,23PRINT"Quali";O3LOCATEZE, A:PRINT'Po 
int?sPsLOCATEZA ,6:PRINT"Balls";8 

1868 LOCATEZ2,B:PRINT?-Score-";LOCATEZL 
+9:PRINTSPO(11):LOCATEZ!,9:PRINTS; :RET 
UN 

1870 * 

1888 “GAME OVER 

te 

LIOB LOCATES!, 28:PRINT"GAME OVER 

LLIO REEP:PLAV"YILSCDEDOSBOAC” 

LUZO TFINHEVSO ""THENLIZO 

LISO TFINKEVS="" THEN L30ELSE34 

1148 * 

150" S-SORE  B-BALS 

1168“ Q - QUALIFICAROO 

178 P POINTS C-RIMO 











PRECO ESPECIAL ATE 15. 12. 88 


DESEJO EFETUAR A ASSINATURA 
DA REVISTA CPU PELO PERÍODO 
DE SEIS MESES. 








PARA TAL, ESTOU ENVIANDO CHEQUE NOMINAL 

A AGUIA INFORMÁTICA, OU VALE POSTAL NOME: .. 
(PAGÁVEL NA AGENCIA COPACABANA), NO ENDEREÇO 
VALOR DE Cz8 4.000,00 (QUATRO MIL CRUZADOS). CATHO 


CIDADE 


C & U DADOS DO EQUIPAMENTO : 


LEIA E ASSINE 








ÁGUIA INFORMÁTICA 





PREÇO ESPECIAL ATÉ 15.12.88 





DESEJO EFETUAR A ASSINATURA 
DA REVISTA CPU PELO PERÍODO 
DE SEIS MESES. 








PARA TAL, ESTOU ENVIANDO CHEQUE NOMINAL 

A AGUIA INFORMÁTICA, OU VALE POSTAL NOME: .. 
(PAGÁVEL NA AGENCIA COPACABANA), NO ENDEREÇO 
VALOR DE Czs 4.000,00 (QUATRO MIL CRUZADOS). 


CPU 


LEIA E ASSINE 


BAIRRO: ... « CEP 
- ESTADO : 








AGUIA INFORMÁTICA 








CPU... 


ASSINE 

















GPU --: PARTECIEE 


ASSINE 


























circuitos 
eletrônicos 








TÉCNICAS E 
TRUQUES DE 
PROGRAMACÃO 





Nossos livros podem ser encontrados em livrarias e lojas de computação. Se o seu livreiro ou 
fomecedor habitual não os tiver disponíveis, entre em contato conosco pelo telefone (011) 843-3202. 

Se você não está recebendo seu boletim gratuitamente pelo correio, ou tem algum amigo que 
gostaria de recebê-lo, não deixe de enviar o cupom abaixo à EDITORA ALEPH - C.P. 20707 - CEP: 
01498 - SÃO PAULO-SP. 


MICRO(S) QUE POSSUI: 





Coma palavra um Expert 


Se você ainda não me conhece, tenho certeza de que já ouviu 
falar muito a meu respeito. 

Sou Expert MSX, o micro projetado e construído pela má- 
quina mais perfeita do mundo: o homem. Com toda a tecnolo- 
gia e vanguarda de quem sempre pesquisou e evoluiu para tor- 
nar a vida do homem muito melhor: a Gradiente 

À imagem e semelhança da Gradiente, sou um pioneiro. 
Meu design, moderno e profissional, inaugurou um estilo. E até 
hoje eu sou o único a lhe oferecer teclado separado do console 
Tenho 3 processadores, processo informações 3,5 vezes mai 
rápido que meus concorrentes e meus arquivos são compatíveis 
com IBM-PC*. 


Execer 


Taro! Todo homem quer crescer nos negócios e na família. 
E quando isso acontece eu continuo lá, útil e prático, ao la 
dele. O melhor testemunho de minha qualidade é o tempo de 
garantia que me acompanha: o maior que você pode encontrar. 
lidade, tenho também a maior rede de assistên- 
cia técnica do país, dez vezes superior a qualquer outra mar 
Entre softwares, tudo que você imaginar em aplicativos e jo- 
ceito, entendo e dec 
E como se tudo isso nã + existem vários periféricos e 
livros disponíveis no mercado feitos especialmente para mim. 
Expert MSX da Gradiente. 


Conte comigo. 


Ojgradiente 





